home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok03.lha / Gels / pb.mod < prev    next >
Text File  |  1993-08-15  |  80KB  |  1,454 lines
  1. (*********************************************************************
  2.  
  3.    -:Program.       PB.mod
  4.    -:Author.        Pit Burkhardt  
  5.     :Address.    Stettinerstraße 25 7030 Böblingen
  6.     :Phone.      -------------
  7.    -:shortcut.      [pit]
  8.    -:Version.       0.1   
  9.    -:Date.          19.06.1988
  10.    -:Copyright.  PD
  11.    -:Language.      Modula-II
  12.    -:Translator. M2Amiga
  13.    -:Imports.     ----
  14.    -:UpDate.     ----
  15.    -:Contents.     Image Data
  16.     :Remark.     This Module was generated by IFFtoCode of same Author
  17.     
  18. **********************************************************************)
  19.  
  20. IMPLEMENTATION MODULE PB;
  21.  
  22. FROM SYSTEM IMPORT      WORD;
  23.  
  24. FROM Heap IMPORT        AllocMem;
  25.  
  26. VAR     i   :INTEGER;
  27.  
  28.  
  29.  
  30. BEGIN   (* MAIN *)
  31.  
  32. FOR i:=0 TO   6  DO
  33.   AllocMem(ImgPtr[i],SIZE(ImgPtr[i]^),TRUE);
  34. END;
  35.  
  36. Imgwidth := 88;
  37. Imgheight:= 48;
  38. Imgdepth :=  2;
  39.  
  40.  
  41.  
  42. WITH ImgPtr[PB1]^ DO         (* PB1 *)
  43.  
  44.   (* Plane 1 *)
  45.  Dat[  0]:=00000H; Dat[  1]:=00000H; Dat[  2]:=00000H; Dat[  3]:=00000H;
  46.  Dat[  4]:=00000H; Dat[  5]:=00000H;(* 1*)
  47.  Dat[  6]:=00000H; Dat[  7]:=00000H; Dat[  8]:=00000H; Dat[  9]:=00000H;
  48.  Dat[ 10]:=00000H; Dat[ 11]:=00000H;(* 2*)
  49.  Dat[ 12]:=00000H; Dat[ 13]:=00000H; Dat[ 14]:=00000H; Dat[ 15]:=00000H;
  50.  Dat[ 16]:=00000H; Dat[ 17]:=00000H;(* 3*)
  51.  Dat[ 18]:=00000H; Dat[ 19]:=00000H; Dat[ 20]:=00000H; Dat[ 21]:=00000H;
  52.  Dat[ 22]:=00000H; Dat[ 23]:=00000H;(* 4*)
  53.  Dat[ 24]:=00000H; Dat[ 25]:=00000H; Dat[ 26]:=00000H; Dat[ 27]:=00000H;
  54.  Dat[ 28]:=00000H; Dat[ 29]:=00000H;(* 5*)
  55.  Dat[ 30]:=00000H; Dat[ 31]:=00000H; Dat[ 32]:=00000H; Dat[ 33]:=00000H;
  56.  Dat[ 34]:=00000H; Dat[ 35]:=00000H;(* 6*)
  57.  Dat[ 36]:=00000H; Dat[ 37]:=00000H; Dat[ 38]:=00000H; Dat[ 39]:=00000H;
  58.  Dat[ 40]:=00000H; Dat[ 41]:=00000H;(* 7*)
  59.  Dat[ 42]:=0FFFFH; Dat[ 43]:=0FFFFH; Dat[ 44]:=0FFFFH; Dat[ 45]:=0FFFFH;
  60.  Dat[ 46]:=00000H; Dat[ 47]:=00000H;(* 8*)
  61.  Dat[ 48]:=0FFFFH; Dat[ 49]:=0FFFFH; Dat[ 50]:=0FFFFH; Dat[ 51]:=0FFFFH;
  62.  Dat[ 52]:=00000H; Dat[ 53]:=00000H;(* 9*)
  63.  Dat[ 54]:=0FFE0H; Dat[ 55]:=003FFH; Dat[ 56]:=0FFC0H; Dat[ 57]:=007FFH;
  64.  Dat[ 58]:=00000H; Dat[ 59]:=00000H;(*10*)
  65.  Dat[ 60]:=0FF00H; Dat[ 61]:=0007FH; Dat[ 62]:=0FE00H; Dat[ 63]:=000FFH;
  66.  Dat[ 64]:=00000H; Dat[ 65]:=00000H;(*11*)
  67.  Dat[ 66]:=0FC00H; Dat[ 67]:=0001FH; Dat[ 68]:=0F800H; Dat[ 69]:=0003FH;
  68.  Dat[ 70]:=00000H; Dat[ 71]:=00000H;(*12*)
  69.  Dat[ 72]:=0F000H; Dat[ 73]:=00007H; Dat[ 74]:=0E000H; Dat[ 75]:=0000FH;
  70.  Dat[ 76]:=00000H; Dat[ 77]:=00000H;(*13*)
  71.  Dat[ 78]:=0E000H; Dat[ 79]:=00003H; Dat[ 80]:=0C000H; Dat[ 81]:=00007H;
  72.  Dat[ 82]:=00000H; Dat[ 83]:=00000H;(*14*)
  73.  Dat[ 84]:=0E000H; Dat[ 85]:=00003H; Dat[ 86]:=0C000H; Dat[ 87]:=00007H;
  74.  Dat[ 88]:=00000H; Dat[ 89]:=00000H;(*15*)
  75.  Dat[ 90]:=0C000H; Dat[ 91]:=00001H; Dat[ 92]:=08000H; Dat[ 93]:=00003H;
  76.  Dat[ 94]:=00000H; Dat[ 95]:=00000H;(*16*)
  77.  Dat[ 96]:=0C000H; Dat[ 97]:=00001H; Dat[ 98]:=08000H; Dat[ 99]:=00003H;
  78.  Dat[100]:=00000H; Dat[101]:=00000H;(*17*)
  79.  Dat[102]:=0C000H; Dat[103]:=00001H; Dat[104]:=08000H; Dat[105]:=00003H;
  80.  Dat[106]:=00000H; Dat[107]:=00000H;(*18*)
  81.  Dat[108]:=0E000H; Dat[109]:=00003H; Dat[110]:=0C000H; Dat[111]:=00007H;
  82.  Dat[112]:=00000H; Dat[113]:=00000H;(*19*)
  83.  Dat[114]:=0E000H; Dat[115]:=00003H; Dat[116]:=0C000H; Dat[117]:=00007H;
  84.  Dat[118]:=00000H; Dat[119]:=00000H;(*20*)
  85.  Dat[120]:=0F000H; Dat[121]:=00007H; Dat[122]:=0E000H; Dat[123]:=0000FH;
  86.  Dat[124]:=00000H; Dat[125]:=00000H;(*21*)
  87.  Dat[126]:=0FC00H; Dat[127]:=0001FH; Dat[128]:=0F800H; Dat[129]:=0003FH;
  88.  Dat[130]:=00000H; Dat[131]:=00000H;(*22*)
  89.  Dat[132]:=0FF00H; Dat[133]:=0007FH; Dat[134]:=0FE00H; Dat[135]:=000FFH;
  90.  Dat[136]:=00000H; Dat[137]:=00000H;(*23*)
  91.  Dat[138]:=0FFE0H; Dat[139]:=003FFH; Dat[140]:=0FFC0H; Dat[141]:=007FFH;
  92.  Dat[142]:=00000H; Dat[143]:=00000H;(*24*)
  93.  Dat[144]:=0FFFFH; Dat[145]:=0FFFFH; Dat[146]:=0FFFFH; Dat[147]:=0FFFFH;
  94.  Dat[148]:=00000H; Dat[149]:=00000H;(*25*)
  95.  Dat[150]:=0FFFFH; Dat[151]:=0FFFFH; Dat[152]:=0FFC0H; Dat[153]:=007FFH;
  96.  Dat[154]:=00000H; Dat[155]:=00000H;(*26*)
  97.  Dat[156]:=0FFFFH; Dat[157]:=0FFFFH; Dat[158]:=0FE00H; Dat[159]:=000FFH;
  98.  Dat[160]:=00000H; Dat[161]:=00000H;(*27*)
  99.  Dat[162]:=0FFFFH; Dat[163]:=0FFFFH; Dat[164]:=0F800H; Dat[165]:=0003FH;
  100.  Dat[166]:=00000H; Dat[167]:=00000H;(*28*)
  101.  Dat[168]:=0FFFFH; Dat[169]:=0FFFFH; Dat[170]:=0E000H; Dat[171]:=0000FH;
  102.  Dat[172]:=00000H; Dat[173]:=00000H;(*29*)
  103.  Dat[174]:=0FFFFH; Dat[175]:=0FFFFH; Dat[176]:=0C000H; Dat[177]:=00007H;
  104.  Dat[178]:=00000H; Dat[179]:=00000H;(*30*)
  105.  Dat[180]:=0FFFFH; Dat[181]:=0FFFFH; Dat[182]:=0C000H; Dat[183]:=00007H;
  106.  Dat[184]:=00000H; Dat[185]:=00000H;(*31*)
  107.  Dat[186]:=0FFFFH; Dat[187]:=0FFFFH; Dat[188]:=08000H; Dat[189]:=00003H;
  108.  Dat[190]:=00000H; Dat[191]:=00000H;(*32*)
  109.  Dat[192]:=0FFFFH; Dat[193]:=0FFFFH; Dat[194]:=08000H; Dat[195]:=00003H;
  110.  Dat[196]:=00000H; Dat[197]:=00000H;(*33*)
  111.  Dat[198]:=0FFFFH; Dat[199]:=0FFFFH; Dat[200]:=08000H; Dat[201]:=00003H;
  112.  Dat[202]:=00000H; Dat[203]:=00000H;(*34*)
  113.  Dat[204]:=0FFFFH; Dat[205]:=0FFFFH; Dat[206]:=0C000H; Dat[207]:=00007H;
  114.  Dat[208]:=00000H; Dat[209]:=00000H;(*35*)
  115.  Dat[210]:=0FFFFH; Dat[211]:=0FFFFH; Dat[212]:=0C000H; Dat[213]:=00007H;
  116.  Dat[214]:=00000H; Dat[215]:=00000H;(*36*)
  117.  Dat[216]:=0FFFFH; Dat[217]:=0FFFFH; Dat[218]:=0E000H; Dat[219]:=0000FH;
  118.  Dat[220]:=00000H; Dat[221]:=00000H;(*37*)
  119.  Dat[222]:=0FFFFH; Dat[223]:=0FFFFH; Dat[224]:=0F800H; Dat[225]:=0003FH;
  120.  Dat[226]:=00000H; Dat[227]:=00000H;(*38*)
  121.  Dat[228]:=0FFFFH; Dat[229]:=0FFFFH; Dat[230]:=0FE00H; Dat[231]:=000FFH;
  122.  Dat[232]:=00000H; Dat[233]:=00000H;(*39*)
  123.  Dat[234]:=0FFFFH; Dat[235]:=0FFFFH; Dat[236]:=0FFC0H; Dat[237]:=007FFH;
  124.  Dat[238]:=00000H; Dat[239]:=00000H;(*40*)
  125.  Dat[240]:=0FFFFH; Dat[241]:=0FFFFH; Dat[242]:=0FFFFH; Dat[243]:=0FFFFH;
  126.  Dat[244]:=00000H; Dat[245]:=00000H;(*41*)
  127.  Dat[246]:=0FFFFH; Dat[247]:=0FFFFH; Dat[248]:=0FFFFH; Dat[249]:=0FFFFH;
  128.  Dat[250]:=00000H; Dat[251]:=00000H;(*42*)
  129.  Dat[252]:=00000H; Dat[253]:=00000H; Dat[254]:=00000H; Dat[255]:=00000H;
  130.  Dat[256]:=00000H; Dat[257]:=00000H;(*43*)
  131.  Dat[258]:=00000H; Dat[259]:=00000H; Dat[260]:=00000H; Dat[261]:=00000H;
  132.  Dat[262]:=00000H; Dat[263]:=00000H;(*44*)
  133.  Dat[264]:=00000H; Dat[265]:=00000H; Dat[266]:=00000H; Dat[267]:=00000H;
  134.  Dat[268]:=00000H; Dat[269]:=00000H;(*45*)
  135.  Dat[270]:=00000H; Dat[271]:=00000H; Dat[272]:=00000H; Dat[273]:=00000H;
  136.  Dat[274]:=00000H; Dat[275]:=00000H;(*46*)
  137.  Dat[276]:=00000H; Dat[277]:=00000H; Dat[278]:=00000H; Dat[279]:=00000H;
  138.  Dat[280]:=00000H; Dat[281]:=00000H;(*47*)
  139.  Dat[282]:=00000H; Dat[283]:=00000H; Dat[284]:=00000H; Dat[285]:=00000H;
  140.  Dat[286]:=00000H; Dat[287]:=00000H;(*48*)
  141.  
  142.   (* Plane 2 *)
  143.  Dat[288]:=00005H; Dat[289]:=05555H; Dat[290]:=05555H; Dat[291]:=05555H;
  144.  Dat[292]:=05550H; Dat[293]:=00000H;(* 1*)
  145.  Dat[294]:=00005H; Dat[295]:=05555H; Dat[296]:=05555H; Dat[297]:=05555H;
  146.  Dat[298]:=05550H; Dat[299]:=00000H;(* 2*)
  147.  Dat[300]:=00005H; Dat[301]:=05400H; Dat[302]:=01555H; Dat[303]:=05400H;
  148.  Dat[304]:=05550H; Dat[305]:=00000H;(* 3*)
  149.  Dat[306]:=00005H; Dat[307]:=05000H; Dat[308]:=00555H; Dat[309]:=04000H;
  150.  Dat[310]:=00550H; Dat[311]:=00000H;(* 4*)
  151.  Dat[312]:=00005H; Dat[313]:=04000H; Dat[314]:=00155H; Dat[315]:=00000H;
  152.  Dat[316]:=00150H; Dat[317]:=00000H;(* 5*)
  153.  Dat[318]:=00005H; Dat[319]:=00000H; Dat[320]:=00054H; Dat[321]:=00000H;
  154.  Dat[322]:=00050H; Dat[323]:=00000H;(* 6*)
  155.  Dat[324]:=00004H; Dat[325]:=00000H; Dat[326]:=00014H; Dat[327]:=00000H;
  156.  Dat[328]:=00050H; Dat[329]:=00000H;(* 7*)
  157.  Dat[330]:=0FFFFH; Dat[331]:=0FFFFH; Dat[332]:=0FFFFH; Dat[333]:=0FFFFH;
  158.  Dat[334]:=00050H; Dat[335]:=00000H;(* 8*)
  159.  Dat[336]:=0FFFFH; Dat[337]:=0FFFFH; Dat[338]:=0FFFFH; Dat[339]:=0FFFFH;
  160.  Dat[340]:=00010H; Dat[341]:=00000H;(* 9*)
  161.  Dat[342]:=0FFE4H; Dat[343]:=003FFH; Dat[344]:=0FFD0H; Dat[345]:=007FFH;
  162.  Dat[346]:=00010H; Dat[347]:=00000H;(*10*)
  163.  Dat[348]:=0FF04H; Dat[349]:=0007FH; Dat[350]:=0FE10H; Dat[351]:=000FFH;
  164.  Dat[352]:=00010H; Dat[353]:=00000H;(*11*)
  165.  Dat[354]:=0FC04H; Dat[355]:=0001FH; Dat[356]:=0F814H; Dat[357]:=0003FH;
  166.  Dat[358]:=00050H; Dat[359]:=00000H;(*12*)
  167.  Dat[360]:=0F004H; Dat[361]:=00007H; Dat[362]:=0E014H; Dat[363]:=0000FH;
  168.  Dat[364]:=00050H; Dat[365]:=00000H;(*13*)
  169.  Dat[366]:=0E005H; Dat[367]:=00003H; Dat[368]:=0C054H; Dat[369]:=00007H;
  170.  Dat[370]:=00050H; Dat[371]:=00000H;(*14*)
  171.  Dat[372]:=0E005H; Dat[373]:=04003H; Dat[374]:=0C155H; Dat[375]:=00007H;
  172.  Dat[376]:=00150H; Dat[377]:=00000H;(*15*)
  173.  Dat[378]:=0C005H; Dat[379]:=05001H; Dat[380]:=08555H; Dat[381]:=04003H;
  174.  Dat[382]:=00550H; Dat[383]:=00000H;(*16*)
  175.  Dat[384]:=0C005H; Dat[385]:=05401H; Dat[386]:=09555H; Dat[387]:=05403H;
  176.  Dat[388]:=05550H; Dat[389]:=00000H;(*17*)
  177.  Dat[390]:=0C005H; Dat[391]:=05555H; Dat[392]:=0D555H; Dat[393]:=05557H;
  178.  Dat[394]:=05550H; Dat[395]:=00000H;(*18*)
  179.  Dat[396]:=0E005H; Dat[397]:=05557H; Dat[398]:=0D555H; Dat[399]:=05407H;
  180.  Dat[400]:=05550H; Dat[401]:=00000H;(*19*)
  181.  Dat[402]:=0E005H; Dat[403]:=05557H; Dat[404]:=0D555H; Dat[405]:=04007H;
  182.  Dat[406]:=00550H; Dat[407]:=00000H;(*20*)
  183.  Dat[408]:=0F005H; Dat[409]:=05557H; Dat[410]:=0F555H; Dat[411]:=0000FH;
  184.  Dat[412]:=00150H; Dat[413]:=00000H;(*21*)
  185.  Dat[414]:=0FC05H; Dat[415]:=0555FH; Dat[416]:=0FD54H; Dat[417]:=0003FH;
  186.  Dat[418]:=00050H; Dat[419]:=00000H;(*22*)
  187.  Dat[420]:=0FF05H; Dat[421]:=0557FH; Dat[422]:=0FF54H; Dat[423]:=000FFH;
  188.  Dat[424]:=00050H; Dat[425]:=00000H;(*23*)
  189.  Dat[426]:=0FFE5H; Dat[427]:=057FFH; Dat[428]:=0FFD4H; Dat[429]:=007FFH;
  190.  Dat[430]:=00050H; Dat[431]:=00000H;(*24*)
  191.  Dat[432]:=0FFFFH; Dat[433]:=0FFFFH; Dat[434]:=0FFFFH; Dat[435]:=0FFFFH;
  192.  Dat[436]:=00010H; Dat[437]:=00000H;(*25*)
  193.  Dat[438]:=0FFFFH; Dat[439]:=0FFFFH; Dat[440]:=0FFD0H; Dat[441]:=007FFH;
  194.  Dat[442]:=00010H; Dat[443]:=00000H;(*26*)
  195.  Dat[444]:=0FFFFH; Dat[445]:=0FFFFH; Dat[446]:=0FF50H; Dat[447]:=000FFH;
  196.  Dat[448]:=00010H; Dat[449]:=00000H;(*27*)
  197.  Dat[450]:=0FFFFH; Dat[451]:=0FFFFH; Dat[452]:=0FD54H; Dat[453]:=0003FH;
  198.  Dat[454]:=00050H; Dat[455]:=00000H;(*28*)
  199.  Dat[456]:=0FFFFH; Dat[457]:=0FFFFH; Dat[458]:=0F554H; Dat[459]:=0000FH;
  200.  Dat[460]:=00050H; Dat[461]:=00000H;(*29*)
  201.  Dat[462]:=0FFFFH; Dat[463]:=0FFFFH; Dat[464]:=0D554H; Dat[465]:=00007H;
  202.  Dat[466]:=00050H; Dat[467]:=00000H;(*30*)
  203.  Dat[468]:=0FFFFH; Dat[469]:=0FFFFH; Dat[470]:=0D555H; Dat[471]:=00007H;
  204.  Dat[472]:=00150H; Dat[473]:=00000H;(*31*)
  205.  Dat[474]:=0FFFFH; Dat[475]:=0FFFFH; Dat[476]:=0D555H; Dat[477]:=04003H;
  206.  Dat[478]:=00550H; Dat[479]:=00000H;(*32*)
  207.  Dat[480]:=0FFFFH; Dat[481]:=0FFFFH; Dat[482]:=0D555H; Dat[483]:=05403H;
  208.  Dat[484]:=05550H; Dat[485]:=00000H;(*33*)
  209.  Dat[486]:=0FFFFH; Dat[487]:=0FFFFH; Dat[488]:=0D555H; Dat[489]:=05557H;
  210.  Dat[490]:=05550H; Dat[491]:=00000H;(*34*)
  211.  Dat[492]:=0FFFFH; Dat[493]:=0FFFFH; Dat[494]:=0D555H; Dat[495]:=05557H;
  212.  Dat[496]:=05550H; Dat[497]:=00000H;(*35*)
  213.  Dat[498]:=0FFFFH; Dat[499]:=0FFFFH; Dat[500]:=0C000H; Dat[501]:=00007H;
  214.  Dat[502]:=00000H; Dat[503]:=00000H;(*36*)
  215.  Dat[504]:=0FFFFH; Dat[505]:=0FFFFH; Dat[506]:=0E000H; Dat[507]:=0000FH;
  216.  Dat[508]:=00000H; Dat[509]:=00000H;(*37*)
  217.  Dat[510]:=0FFFFH; Dat[511]:=0FFFFH; Dat[512]:=0F800H; Dat[513]:=0003FH;
  218.  Dat[514]:=00000H; Dat[515]:=00000H;(*38*)
  219.  Dat[516]:=0FFFFH; Dat[517]:=0FFFFH; Dat[518]:=0FE00H; Dat[519]:=000FFH;
  220.  Dat[520]:=00000H; Dat[521]:=00000H;(*39*)
  221.  Dat[522]:=0FFFFH; Dat[523]:=0FFFFH; Dat[524]:=0FFC0H; Dat[525]:=007FFH;
  222.  Dat[526]:=00000H; Dat[527]:=00000H;(*40*)
  223.  Dat[528]:=0FFFFH; Dat[529]:=0FFFFH; Dat[530]:=0FFFFH; Dat[531]:=0FFFFH;
  224.  Dat[532]:=00000H; Dat[533]:=00000H;(*41*)
  225.  Dat[534]:=0FFFFH; Dat[535]:=0FFFFH; Dat[536]:=0FFFFH; Dat[537]:=0FFFFH;
  226.  Dat[538]:=00000H; Dat[539]:=00000H;(*42*)
  227.  Dat[540]:=00000H; Dat[541]:=00000H; Dat[542]:=00000H; Dat[543]:=00000H;
  228.  Dat[544]:=00000H; Dat[545]:=00000H;(*43*)
  229.  Dat[546]:=00000H; Dat[547]:=00000H; Dat[548]:=00000H; Dat[549]:=00000H;
  230.  Dat[550]:=00000H; Dat[551]:=00000H;(*44*)
  231.  Dat[552]:=00000H; Dat[553]:=00000H; Dat[554]:=00000H; Dat[555]:=00000H;
  232.  Dat[556]:=00000H; Dat[557]:=00000H;(*45*)
  233.  Dat[558]:=00000H; Dat[559]:=00000H; Dat[560]:=00000H; Dat[561]:=00000H;
  234.  Dat[562]:=00000H; Dat[563]:=00000H;(*46*)
  235.  Dat[564]:=00000H; Dat[565]:=00000H; Dat[566]:=00000H; Dat[567]:=00000H;
  236.  Dat[568]:=00000H; Dat[569]:=00000H;(*47*)
  237.  Dat[570]:=00000H; Dat[571]:=00000H; Dat[572]:=00000H; Dat[573]:=00000H;
  238.  Dat[574]:=00000H; Dat[575]:=00000H;(*48*)
  239.  
  240. END; 
  241. (* Brushbreite gegenüber IFF geändert! *)
  242.  
  243.  
  244. WITH ImgPtr[PB2]^ DO         (* PB2 *)
  245.  
  246.   (* Plane 1 *)
  247.  Dat[  0]:=00000H; Dat[  1]:=00000H; Dat[  2]:=00000H; Dat[  3]:=00000H;
  248.  Dat[  4]:=00000H; Dat[  5]:=00000H;(* 1*)
  249.  Dat[  6]:=00000H; Dat[  7]:=00000H; Dat[  8]:=00000H; Dat[  9]:=00000H;
  250.  Dat[ 10]:=00000H; Dat[ 11]:=00000H;(* 2*)
  251.  Dat[ 12]:=00000H; Dat[ 13]:=00000H; Dat[ 14]:=00000H; Dat[ 15]:=00000H;
  252.  Dat[ 16]:=00000H; Dat[ 17]:=00000H;(* 3*)
  253.  Dat[ 18]:=00000H; Dat[ 19]:=00000H; Dat[ 20]:=00000H; Dat[ 21]:=00000H;
  254.  Dat[ 22]:=00000H; Dat[ 23]:=00000H;(* 4*)
  255.  Dat[ 24]:=00000H; Dat[ 25]:=00000H; Dat[ 26]:=00000H; Dat[ 27]:=00000H;
  256.  Dat[ 28]:=00000H; Dat[ 29]:=00000H;(* 5*)
  257.  Dat[ 30]:=00000H; Dat[ 31]:=00000H; Dat[ 32]:=00000H; Dat[ 33]:=00000H;
  258.  Dat[ 34]:=00000H; Dat[ 35]:=00000H;(* 6*)
  259.  Dat[ 36]:=00000H; Dat[ 37]:=00000H; Dat[ 38]:=00000H; Dat[ 39]:=00000H;
  260.  Dat[ 40]:=00000H; Dat[ 41]:=00000H;(* 7*)
  261.  Dat[ 42]:=0E000H; Dat[ 43]:=00000H; Dat[ 44]:=00000H; Dat[ 45]:=0000FH;
  262.  Dat[ 46]:=00000H; Dat[ 47]:=00000H;(* 8*)
  263.  Dat[ 48]:=0FFFCH; Dat[ 49]:=00000H; Dat[ 50]:=00000H; Dat[ 51]:=07FFFH;
  264.  Dat[ 52]:=00000H; Dat[ 53]:=00000H;(* 9*)
  265.  Dat[ 54]:=0FFFFH; Dat[ 55]:=0FFFFH; Dat[ 56]:=0FFFFH; Dat[ 57]:=0FFFFH;
  266.  Dat[ 58]:=00000H; Dat[ 59]:=00000H;(*10*)
  267.  Dat[ 60]:=0FFE3H; Dat[ 61]:=0FFFFH; Dat[ 62]:=0FFFFH; Dat[ 63]:=087FFH;
  268.  Dat[ 64]:=00000H; Dat[ 65]:=00000H;(*11*)
  269.  Dat[ 66]:=0FF00H; Dat[ 67]:=003FFH; Dat[ 68]:=0FFC0H; Dat[ 69]:=000FFH;
  270.  Dat[ 70]:=00000H; Dat[ 71]:=00000H;(*12*)
  271.  Dat[ 72]:=0FC00H; Dat[ 73]:=0007FH; Dat[ 74]:=0FE00H; Dat[ 75]:=0003FH;
  272.  Dat[ 76]:=00000H; Dat[ 77]:=00000H;(*13*)
  273.  Dat[ 78]:=0F000H; Dat[ 79]:=0001FH; Dat[ 80]:=0F800H; Dat[ 81]:=00007H;
  274.  Dat[ 82]:=00000H; Dat[ 83]:=00000H;(*14*)
  275.  Dat[ 84]:=0E000H; Dat[ 85]:=00007H; Dat[ 86]:=0E000H; Dat[ 87]:=00007H;
  276.  Dat[ 88]:=00000H; Dat[ 89]:=00000H;(*15*)
  277.  Dat[ 90]:=0C000H; Dat[ 91]:=00003H; Dat[ 92]:=0C000H; Dat[ 93]:=00003H;
  278.  Dat[ 94]:=00000H; Dat[ 95]:=00000H;(*16*)
  279.  Dat[ 96]:=0C000H; Dat[ 97]:=00003H; Dat[ 98]:=0C000H; Dat[ 99]:=00003H;
  280.  Dat[100]:=00000H; Dat[101]:=00000H;(*17*)
  281.  Dat[102]:=0C000H; Dat[103]:=00001H; Dat[104]:=08000H; Dat[105]:=00003H;
  282.  Dat[106]:=00000H; Dat[107]:=00000H;(*18*)
  283.  Dat[108]:=0E000H; Dat[109]:=00001H; Dat[110]:=08000H; Dat[111]:=00007H;
  284.  Dat[112]:=00000H; Dat[113]:=00000H;(*19*)
  285.  Dat[114]:=0E000H; Dat[115]:=00001H; Dat[116]:=08000H; Dat[117]:=00007H;
  286.  Dat[118]:=00000H; Dat[119]:=00000H;(*20*)
  287.  Dat[120]:=0E000H; Dat[121]:=00003H; Dat[122]:=0C000H; Dat[123]:=0000FH;
  288.  Dat[124]:=00000H; Dat[125]:=00000H;(*21*)
  289.  Dat[126]:=0F000H; Dat[127]:=00003H; Dat[128]:=0C000H; Dat[129]:=0000FH;
  290.  Dat[130]:=00000H; Dat[131]:=00000H;(*22*)
  291.  Dat[132]:=0FC00H; Dat[133]:=00007H; Dat[134]:=0E000H; Dat[135]:=0003FH;
  292.  Dat[136]:=00000H; Dat[137]:=00000H;(*23*)
  293.  Dat[138]:=0FF00H; Dat[139]:=0001FH; Dat[140]:=0F800H; Dat[141]:=000FFH;
  294.  Dat[142]:=00000H; Dat[143]:=00000H;(*24*)
  295.  Dat[144]:=0FFE0H; Dat[145]:=0007FH; Dat[146]:=0FE00H; Dat[147]:=007FFH;
  296.  Dat[148]:=00000H; Dat[149]:=00000H;(*25*)
  297.  Dat[150]:=0FFFCH; Dat[151]:=003FFH; Dat[152]:=0FFC0H; Dat[153]:=07FFFH;
  298.  Dat[154]:=00000H; Dat[155]:=00000H;(*26*)
  299.  Dat[156]:=0FFFFH; Dat[157]:=0FFFFH; Dat[158]:=0FFFFH; Dat[159]:=087FFH;
  300.  Dat[160]:=00000H; Dat[161]:=00000H;(*27*)
  301.  Dat[162]:=0FFFFH; Dat[163]:=0FFFFH; Dat[164]:=0FFC0H; Dat[165]:=000FFH;
  302.  Dat[166]:=00000H; Dat[167]:=00000H;(*28*)
  303.  Dat[168]:=0FFFFH; Dat[169]:=0FFFFH; Dat[170]:=0FE00H; Dat[171]:=0003FH;
  304.  Dat[172]:=00000H; Dat[173]:=00000H;(*29*)
  305.  Dat[174]:=0FFFFH; Dat[175]:=0FFFFH; Dat[176]:=0F800H; Dat[177]:=00007H;
  306.  Dat[178]:=00000H; Dat[179]:=00000H;(*30*)
  307.  Dat[180]:=0FFFFH; Dat[181]:=0FFFFH; Dat[182]:=0E000H; Dat[183]:=00007H;
  308.  Dat[184]:=00000H; Dat[185]:=00000H;(*31*)
  309.  Dat[186]:=0FFFFH; Dat[187]:=0FFFFH; Dat[188]:=0C000H; Dat[189]:=00003H;
  310.  Dat[190]:=00000H; Dat[191]:=00000H;(*32*)
  311.  Dat[192]:=0FFFFH; Dat[193]:=0FFFFH; Dat[194]:=0C000H; Dat[195]:=00003H;
  312.  Dat[196]:=00000H; Dat[197]:=00000H;(*33*)
  313.  Dat[198]:=0FFFFH; Dat[199]:=0FFFFH; Dat[200]:=08000H; Dat[201]:=00003H;
  314.  Dat[202]:=00000H; Dat[203]:=00000H;(*34*)
  315.  Dat[204]:=0FFFFH; Dat[205]:=0FFFFH; Dat[206]:=08000H; Dat[207]:=00007H;
  316.  Dat[208]:=00000H; Dat[209]:=00000H;(*35*)
  317.  Dat[210]:=0FFFFH; Dat[211]:=0FFFFH; Dat[212]:=08000H; Dat[213]:=00007H;
  318.  Dat[214]:=00000H; Dat[215]:=00000H;(*36*)
  319.  Dat[216]:=0FFFFH; Dat[217]:=0FFFFH; Dat[218]:=0C000H; Dat[219]:=0000FH;
  320.  Dat[220]:=00000H; Dat[221]:=00000H;(*37*)
  321.  Dat[222]:=0FFFFH; Dat[223]:=0FFFFH; Dat[224]:=0C000H; Dat[225]:=0000FH;
  322.  Dat[226]:=00000H; Dat[227]:=00000H;(*38*)
  323.  Dat[228]:=0FFFFH; Dat[229]:=0FFFFH; Dat[230]:=0E000H; Dat[231]:=0003FH;
  324.  Dat[232]:=00000H; Dat[233]:=00000H;(*39*)
  325.  Dat[234]:=0FFFFH; Dat[235]:=0FFFFH; Dat[236]:=0F800H; Dat[237]:=000FFH;
  326.  Dat[238]:=00000H; Dat[239]:=00000H;(*40*)
  327.  Dat[240]:=0FFFFH; Dat[241]:=0FFFFH; Dat[242]:=0FE00H; Dat[243]:=007FFH;
  328.  Dat[244]:=00000H; Dat[245]:=00000H;(*41*)
  329.  Dat[246]:=0FFFFH; Dat[247]:=0FFFFH; Dat[248]:=0FFC0H; Dat[249]:=07FFFH;
  330.  Dat[250]:=00000H; Dat[251]:=00000H;(*42*)
  331.  Dat[252]:=01FFFH; Dat[253]:=0FFFFH; Dat[254]:=0FFFFH; Dat[255]:=0FFF0H;
  332.  Dat[256]:=00000H; Dat[257]:=00000H;(*43*)
  333.  Dat[258]:=00003H; Dat[259]:=0FFFFH; Dat[260]:=0FFFFH; Dat[261]:=08000H;
  334.  Dat[262]:=00000H; Dat[263]:=00000H;(*44*)
  335.  Dat[264]:=00000H; Dat[265]:=00000H; Dat[266]:=00000H; Dat[267]:=00000H;
  336.  Dat[268]:=00000H; Dat[269]:=00000H;(*45*)
  337.  Dat[270]:=00000H; Dat[271]:=00000H; Dat[272]:=00000H; Dat[273]:=00000H;
  338.  Dat[274]:=00000H; Dat[275]:=00000H;(*46*)
  339.  Dat[276]:=00000H; Dat[277]:=00000H; Dat[278]:=00000H; Dat[279]:=00000H;
  340.  Dat[280]:=00000H; Dat[281]:=00000H;(*47*)
  341.  Dat[282]:=00000H; Dat[283]:=00000H; Dat[284]:=00000H; Dat[285]:=00000H;
  342.  Dat[286]:=00000H; Dat[287]:=00000H;(*48*)
  343.  
  344.   (* Plane 2 *)
  345.  Dat[288]:=00005H; Dat[289]:=05555H; Dat[290]:=05555H; Dat[291]:=05555H;
  346.  Dat[292]:=05550H; Dat[293]:=00000H;(* 1*)
  347.  Dat[294]:=00005H; Dat[295]:=05555H; Dat[296]:=05555H; Dat[297]:=05555H;
  348.  Dat[298]:=05550H; Dat[299]:=00000H;(* 2*)
  349.  Dat[300]:=00005H; Dat[301]:=05400H; Dat[302]:=01555H; Dat[303]:=05400H;
  350.  Dat[304]:=05550H; Dat[305]:=00000H;(* 3*)
  351.  Dat[306]:=00005H; Dat[307]:=05000H; Dat[308]:=00555H; Dat[309]:=04000H;
  352.  Dat[310]:=00550H; Dat[311]:=00000H;(* 4*)
  353.  Dat[312]:=00005H; Dat[313]:=04000H; Dat[314]:=00155H; Dat[315]:=00000H;
  354.  Dat[316]:=00150H; Dat[317]:=00000H;(* 5*)
  355.  Dat[318]:=00005H; Dat[319]:=00000H; Dat[320]:=00054H; Dat[321]:=00000H;
  356.  Dat[322]:=00050H; Dat[323]:=00000H;(* 6*)
  357.  Dat[324]:=00004H; Dat[325]:=00000H; Dat[326]:=00014H; Dat[327]:=00000H;
  358.  Dat[328]:=00050H; Dat[329]:=00000H;(* 7*)
  359.  Dat[330]:=0E004H; Dat[331]:=00000H; Dat[332]:=00014H; Dat[333]:=0000FH;
  360.  Dat[334]:=00050H; Dat[335]:=00000H;(* 8*)
  361.  Dat[336]:=0FFFCH; Dat[337]:=00000H; Dat[338]:=00010H; Dat[339]:=07FFFH;
  362.  Dat[340]:=00010H; Dat[341]:=00000H;(* 9*)
  363.  Dat[342]:=0FFFFH; Dat[343]:=0FFFFH; Dat[344]:=0FFFFH; Dat[345]:=0FFFFH;
  364.  Dat[346]:=00010H; Dat[347]:=00000H;(*10*)
  365.  Dat[348]:=0FFE7H; Dat[349]:=0FFFFH; Dat[350]:=0FFFFH; Dat[351]:=087FFH;
  366.  Dat[352]:=00010H; Dat[353]:=00000H;(*11*)
  367.  Dat[354]:=0FF04H; Dat[355]:=003FFH; Dat[356]:=0FFD4H; Dat[357]:=000FFH;
  368.  Dat[358]:=00050H; Dat[359]:=00000H;(*12*)
  369.  Dat[360]:=0FC04H; Dat[361]:=0007FH; Dat[362]:=0FE14H; Dat[363]:=0003FH;
  370.  Dat[364]:=00050H; Dat[365]:=00000H;(*13*)
  371.  Dat[366]:=0F005H; Dat[367]:=0001FH; Dat[368]:=0F854H; Dat[369]:=00007H;
  372.  Dat[370]:=00050H; Dat[371]:=00000H;(*14*)
  373.  Dat[372]:=0E005H; Dat[373]:=04007H; Dat[374]:=0E155H; Dat[375]:=00007H;
  374.  Dat[376]:=00150H; Dat[377]:=00000H;(*15*)
  375.  Dat[378]:=0C005H; Dat[379]:=05003H; Dat[380]:=0C555H; Dat[381]:=04003H;
  376.  Dat[382]:=00550H; Dat[383]:=00000H;(*16*)
  377.  Dat[384]:=0C005H; Dat[385]:=05403H; Dat[386]:=0D555H; Dat[387]:=05403H;
  378.  Dat[388]:=05550H; Dat[389]:=00000H;(*17*)
  379.  Dat[390]:=0C005H; Dat[391]:=05555H; Dat[392]:=0D555H; Dat[393]:=05557H;
  380.  Dat[394]:=05550H; Dat[395]:=00000H;(*18*)
  381.  Dat[396]:=0E005H; Dat[397]:=05555H; Dat[398]:=0D555H; Dat[399]:=05407H;
  382.  Dat[400]:=05550H; Dat[401]:=00000H;(*19*)
  383.  Dat[402]:=0E005H; Dat[403]:=05555H; Dat[404]:=0D555H; Dat[405]:=04007H;
  384.  Dat[406]:=00550H; Dat[407]:=00000H;(*20*)
  385.  Dat[408]:=0E005H; Dat[409]:=05557H; Dat[410]:=0D555H; Dat[411]:=0000FH;
  386.  Dat[412]:=00150H; Dat[413]:=00000H;(*21*)
  387.  Dat[414]:=0F005H; Dat[415]:=05557H; Dat[416]:=0D554H; Dat[417]:=0000FH;
  388.  Dat[418]:=00050H; Dat[419]:=00000H;(*22*)
  389.  Dat[420]:=0FC05H; Dat[421]:=05557H; Dat[422]:=0F554H; Dat[423]:=0003FH;
  390.  Dat[424]:=00050H; Dat[425]:=00000H;(*23*)
  391.  Dat[426]:=0FF05H; Dat[427]:=0555FH; Dat[428]:=0FD54H; Dat[429]:=000FFH;
  392.  Dat[430]:=00050H; Dat[431]:=00000H;(*24*)
  393.  Dat[432]:=0FFE5H; Dat[433]:=0557FH; Dat[434]:=0FF50H; Dat[435]:=007FFH;
  394.  Dat[436]:=00010H; Dat[437]:=00000H;(*25*)
  395.  Dat[438]:=0FFFDH; Dat[439]:=057FFH; Dat[440]:=0FFD0H; Dat[441]:=07FFFH;
  396.  Dat[442]:=00010H; Dat[443]:=00000H;(*26*)
  397.  Dat[444]:=0FFFFH; Dat[445]:=0FFFFH; Dat[446]:=0FFFFH; Dat[447]:=087FFH;
  398.  Dat[448]:=00010H; Dat[449]:=00000H;(*27*)
  399.  Dat[450]:=0FFFFH; Dat[451]:=0FFFFH; Dat[452]:=0FFD4H; Dat[453]:=000FFH;
  400.  Dat[454]:=00050H; Dat[455]:=00000H;(*28*)
  401.  Dat[456]:=0FFFFH; Dat[457]:=0FFFFH; Dat[458]:=0FF54H; Dat[459]:=0003FH;
  402.  Dat[460]:=00050H; Dat[461]:=00000H;(*29*)
  403.  Dat[462]:=0FFFFH; Dat[463]:=0FFFFH; Dat[464]:=0FD54H; Dat[465]:=00007H;
  404.  Dat[466]:=00050H; Dat[467]:=00000H;(*30*)
  405.  Dat[468]:=0FFFFH; Dat[469]:=0FFFFH; Dat[470]:=0F555H; Dat[471]:=00007H;
  406.  Dat[472]:=00150H; Dat[473]:=00000H;(*31*)
  407.  Dat[474]:=0FFFFH; Dat[475]:=0FFFFH; Dat[476]:=0D555H; Dat[477]:=04003H;
  408.  Dat[478]:=00550H; Dat[479]:=00000H;(*32*)
  409.  Dat[480]:=0FFFFH; Dat[481]:=0FFFFH; Dat[482]:=0D555H; Dat[483]:=05403H;
  410.  Dat[484]:=05550H; Dat[485]:=00000H;(*33*)
  411.  Dat[486]:=0FFFFH; Dat[487]:=0FFFFH; Dat[488]:=0D555H; Dat[489]:=05557H;
  412.  Dat[490]:=05550H; Dat[491]:=00000H;(*34*)
  413.  Dat[492]:=0FFFFH; Dat[493]:=0FFFFH; Dat[494]:=0D555H; Dat[495]:=05557H;
  414.  Dat[496]:=05550H; Dat[497]:=00000H;(*35*)
  415.  Dat[498]:=0FFFFH; Dat[499]:=0FFFFH; Dat[500]:=08000H; Dat[501]:=00007H;
  416.  Dat[502]:=00000H; Dat[503]:=00000H;(*36*)
  417.  Dat[504]:=0FFFFH; Dat[505]:=0FFFFH; Dat[506]:=0C000H; Dat[507]:=0000FH;
  418.  Dat[508]:=00000H; Dat[509]:=00000H;(*37*)
  419.  Dat[510]:=0FFFFH; Dat[511]:=0FFFFH; Dat[512]:=0C000H; Dat[513]:=0000FH;
  420.  Dat[514]:=00000H; Dat[515]:=00000H;(*38*)
  421.  Dat[516]:=0FFFFH; Dat[517]:=0FFFFH; Dat[518]:=0E000H; Dat[519]:=0003FH;
  422.  Dat[520]:=00000H; Dat[521]:=00000H;(*39*)
  423.  Dat[522]:=0FFFFH; Dat[523]:=0FFFFH; Dat[524]:=0F800H; Dat[525]:=000FFH;
  424.  Dat[526]:=00000H; Dat[527]:=00000H;(*40*)
  425.  Dat[528]:=0FFFFH; Dat[529]:=0FFFFH; Dat[530]:=0FE00H; Dat[531]:=007FFH;
  426.  Dat[532]:=00000H; Dat[533]:=00000H;(*41*)
  427.  Dat[534]:=0FFFFH; Dat[535]:=0FFFFH; Dat[536]:=0FFC0H; Dat[537]:=07FFFH;
  428.  Dat[538]:=00000H; Dat[539]:=00000H;(*42*)
  429.  Dat[540]:=01FFFH; Dat[541]:=0FFFFH; Dat[542]:=0FFFFH; Dat[543]:=0FFF0H;
  430.  Dat[544]:=00000H; Dat[545]:=00000H;(*43*)
  431.  Dat[546]:=00003H; Dat[547]:=0FFFFH; Dat[548]:=0FFFFH; Dat[549]:=08000H;
  432.  Dat[550]:=00000H; Dat[551]:=00000H;(*44*)
  433.  Dat[552]:=00000H; Dat[553]:=00000H; Dat[554]:=00000H; Dat[555]:=00000H;
  434.  Dat[556]:=00000H; Dat[557]:=00000H;(*45*)
  435.  Dat[558]:=00000H; Dat[559]:=00000H; Dat[560]:=00000H; Dat[561]:=00000H;
  436.  Dat[562]:=00000H; Dat[563]:=00000H;(*46*)
  437.  Dat[564]:=00000H; Dat[565]:=00000H; Dat[566]:=00000H; Dat[567]:=00000H;
  438.  Dat[568]:=00000H; Dat[569]:=00000H;(*47*)
  439.  Dat[570]:=00000H; Dat[571]:=00000H; Dat[572]:=00000H; Dat[573]:=00000H;
  440.  Dat[574]:=00000H; Dat[575]:=00000H;(*48*)
  441.  
  442. END; 
  443. (* Brushbreite gegenüber IFF geändert! *)
  444.  
  445.  
  446. WITH ImgPtr[PB3]^ DO         (* PB3 *)
  447.  
  448.   (* Plane 1 *)
  449.  Dat[  0]:=00000H; Dat[  1]:=00000H; Dat[  2]:=00000H; Dat[  3]:=00000H;
  450.  Dat[  4]:=00000H; Dat[  5]:=00000H;(* 1*)
  451.  Dat[  6]:=00000H; Dat[  7]:=00000H; Dat[  8]:=00000H; Dat[  9]:=00000H;
  452.  Dat[ 10]:=00000H; Dat[ 11]:=00000H;(* 2*)
  453.  Dat[ 12]:=00000H; Dat[ 13]:=00000H; Dat[ 14]:=00000H; Dat[ 15]:=00000H;
  454.  Dat[ 16]:=00000H; Dat[ 17]:=00000H;(* 3*)
  455.  Dat[ 18]:=00000H; Dat[ 19]:=00000H; Dat[ 20]:=00000H; Dat[ 21]:=00000H;
  456.  Dat[ 22]:=00000H; Dat[ 23]:=00000H;(* 4*)
  457.  Dat[ 24]:=00000H; Dat[ 25]:=00000H; Dat[ 26]:=00000H; Dat[ 27]:=00000H;
  458.  Dat[ 28]:=00000H; Dat[ 29]:=00000H;(* 5*)
  459.  Dat[ 30]:=00000H; Dat[ 31]:=00000H; Dat[ 32]:=00000H; Dat[ 33]:=00000H;
  460.  Dat[ 34]:=00000H; Dat[ 35]:=00000H;(* 6*)
  461.  Dat[ 36]:=00000H; Dat[ 37]:=00000H; Dat[ 38]:=00000H; Dat[ 39]:=00000H;
  462.  Dat[ 40]:=00000H; Dat[ 41]:=00000H;(* 7*)
  463.  Dat[ 42]:=0C000H; Dat[ 43]:=00000H; Dat[ 44]:=00000H; Dat[ 45]:=00003H;
  464.  Dat[ 46]:=00000H; Dat[ 47]:=00000H;(* 8*)
  465.  Dat[ 48]:=0F800H; Dat[ 49]:=00000H; Dat[ 50]:=00000H; Dat[ 51]:=0007FH;
  466.  Dat[ 52]:=00000H; Dat[ 53]:=00000H;(* 9*)
  467.  Dat[ 54]:=0FF80H; Dat[ 55]:=00000H; Dat[ 56]:=00000H; Dat[ 57]:=00FFFH;
  468.  Dat[ 58]:=00000H; Dat[ 59]:=00000H;(*10*)
  469.  Dat[ 60]:=0FFFFH; Dat[ 61]:=08000H; Dat[ 62]:=0003FH; Dat[ 63]:=0FFFFH;
  470.  Dat[ 64]:=00000H; Dat[ 65]:=00000H;(*11*)
  471.  Dat[ 66]:=0FFFFH; Dat[ 67]:=0FFFFH; Dat[ 68]:=0FFFFH; Dat[ 69]:=0F7FFH;
  472.  Dat[ 70]:=00000H; Dat[ 71]:=00000H;(*12*)
  473.  Dat[ 72]:=0FF60H; Dat[ 73]:=07FFFH; Dat[ 74]:=0FFC0H; Dat[ 75]:=000BFH;
  474.  Dat[ 76]:=00000H; Dat[ 77]:=00000H;(*13*)
  475.  Dat[ 78]:=0F400H; Dat[ 79]:=003FFH; Dat[ 80]:=0FFC0H; Dat[ 81]:=0000FH;
  476.  Dat[ 82]:=00000H; Dat[ 83]:=00000H;(*14*)
  477.  Dat[ 84]:=0E000H; Dat[ 85]:=0007FH; Dat[ 86]:=0FE00H; Dat[ 87]:=00007H;
  478.  Dat[ 88]:=00000H; Dat[ 89]:=00000H;(*15*)
  479.  Dat[ 90]:=0E000H; Dat[ 91]:=0001FH; Dat[ 92]:=0F800H; Dat[ 93]:=00007H;
  480.  Dat[ 94]:=00000H; Dat[ 95]:=00000H;(*16*)
  481.  Dat[ 96]:=0C000H; Dat[ 97]:=00007H; Dat[ 98]:=0E000H; Dat[ 99]:=00003H;
  482.  Dat[100]:=00000H; Dat[101]:=00000H;(*17*)
  483.  Dat[102]:=0C000H; Dat[103]:=00003H; Dat[104]:=0C000H; Dat[105]:=00003H;
  484.  Dat[106]:=00000H; Dat[107]:=00000H;(*18*)
  485.  Dat[108]:=0C000H; Dat[109]:=00003H; Dat[110]:=0C000H; Dat[111]:=00003H;
  486.  Dat[112]:=00000H; Dat[113]:=00000H;(*19*)
  487.  Dat[114]:=0E000H; Dat[115]:=00001H; Dat[116]:=08000H; Dat[117]:=00007H;
  488.  Dat[118]:=00000H; Dat[119]:=00000H;(*20*)
  489.  Dat[120]:=0E000H; Dat[121]:=00001H; Dat[122]:=08000H; Dat[123]:=00007H;
  490.  Dat[124]:=00000H; Dat[125]:=00000H;(*21*)
  491.  Dat[126]:=0F000H; Dat[127]:=00001H; Dat[128]:=08000H; Dat[129]:=0000FH;
  492.  Dat[130]:=00000H; Dat[131]:=00000H;(*22*)
  493.  Dat[132]:=0F800H; Dat[133]:=00003H; Dat[134]:=0C000H; Dat[135]:=0003FH;
  494.  Dat[136]:=00000H; Dat[137]:=00000H;(*23*)
  495.  Dat[138]:=0FC00H; Dat[139]:=00003H; Dat[140]:=0C000H; Dat[141]:=0007FH;
  496.  Dat[142]:=00000H; Dat[143]:=00000H;(*24*)
  497.  Dat[144]:=0FF00H; Dat[145]:=00007H; Dat[146]:=0E000H; Dat[147]:=000FFH;
  498.  Dat[148]:=00000H; Dat[149]:=00000H;(*25*)
  499.  Dat[150]:=0FF80H; Dat[151]:=0001FH; Dat[152]:=0F800H; Dat[153]:=007FFH;
  500.  Dat[154]:=00000H; Dat[155]:=00000H;(*26*)
  501.  Dat[156]:=0FFE0H; Dat[157]:=0007FH; Dat[158]:=0FE00H; Dat[159]:=00FFFH;
  502.  Dat[160]:=00000H; Dat[161]:=00000H;(*27*)
  503.  Dat[162]:=0FFFFH; Dat[163]:=083FFH; Dat[164]:=0FFFFH; Dat[165]:=0F7FFH;
  504.  Dat[166]:=00000H; Dat[167]:=00000H;(*28*)
  505.  Dat[168]:=0FFFFH; Dat[169]:=0FFFFH; Dat[170]:=0FFC0H; Dat[171]:=000BFH;
  506.  Dat[172]:=00000H; Dat[173]:=00000H;(*29*)
  507.  Dat[174]:=0FFFFH; Dat[175]:=0FFFFH; Dat[176]:=0FFC0H; Dat[177]:=0000FH;
  508.  Dat[178]:=00000H; Dat[179]:=00000H;(*30*)
  509.  Dat[180]:=0FFFFH; Dat[181]:=0FFFFH; Dat[182]:=0FE00H; Dat[183]:=00007H;
  510.  Dat[184]:=00000H; Dat[185]:=00000H;(*31*)
  511.  Dat[186]:=0FFFFH; Dat[187]:=0FFFFH; Dat[188]:=0F800H; Dat[189]:=00007H;
  512.  Dat[190]:=00000H; Dat[191]:=00000H;(*32*)
  513.  Dat[192]:=0FFFFH; Dat[193]:=0FFFFH; Dat[194]:=0E000H; Dat[195]:=00003H;
  514.  Dat[196]:=00000H; Dat[197]:=00000H;(*33*)
  515.  Dat[198]:=0FFFFH; Dat[199]:=0FFFFH; Dat[200]:=0C000H; Dat[201]:=00003H;
  516.  Dat[202]:=00000H; Dat[203]:=00000H;(*34*)
  517.  Dat[204]:=0FFFFH; Dat[205]:=0FFFFH; Dat[206]:=0C000H; Dat[207]:=00003H;
  518.  Dat[208]:=00000H; Dat[209]:=00000H;(*35*)
  519.  Dat[210]:=0FFFFH; Dat[211]:=0FFFFH; Dat[212]:=08000H; Dat[213]:=00007H;
  520.  Dat[214]:=00000H; Dat[215]:=00000H;(*36*)
  521.  Dat[216]:=0FFFFH; Dat[217]:=0FFFFH; Dat[218]:=08000H; Dat[219]:=00007H;
  522.  Dat[220]:=00000H; Dat[221]:=00000H;(*37*)
  523.  Dat[222]:=0FFFFH; Dat[223]:=0FFFFH; Dat[224]:=08000H; Dat[225]:=0000FH;
  524.  Dat[226]:=00000H; Dat[227]:=00000H;(*38*)
  525.  Dat[228]:=0FFFFH; Dat[229]:=0FFFFH; Dat[230]:=0C000H; Dat[231]:=0003FH;
  526.  Dat[232]:=00000H; Dat[233]:=00000H;(*39*)
  527.  Dat[234]:=0FFFFH; Dat[235]:=0FFFFH; Dat[236]:=0C000H; Dat[237]:=0007FH;
  528.  Dat[238]:=00000H; Dat[239]:=00000H;(*40*)
  529.  Dat[240]:=0FFFFH; Dat[241]:=0FFFFH; Dat[242]:=0E000H; Dat[243]:=000FFH;
  530.  Dat[244]:=00000H; Dat[245]:=00000H;(*41*)
  531.  Dat[246]:=0FFFFH; Dat[247]:=0FFFFH; Dat[248]:=0F800H; Dat[249]:=007FFH;
  532.  Dat[250]:=00000H; Dat[251]:=00000H;(*42*)
  533.  Dat[252]:=03FFFH; Dat[253]:=0FFFFH; Dat[254]:=0FE00H; Dat[255]:=00FFCH;
  534.  Dat[256]:=00000H; Dat[257]:=00000H;(*43*)
  535.  Dat[258]:=007FFH; Dat[259]:=0FFFFH; Dat[260]:=0FFFFH; Dat[261]:=0FF80H;
  536.  Dat[262]:=00000H; Dat[263]:=00000H;(*44*)
  537.  Dat[264]:=0007FH; Dat[265]:=0FFFFH; Dat[266]:=0FFFFH; Dat[267]:=0F000H;
  538.  Dat[268]:=00000H; Dat[269]:=00000H;(*45*)
  539.  Dat[270]:=00000H; Dat[271]:=07FFFH; Dat[272]:=0FFC0H; Dat[273]:=00000H;
  540.  Dat[274]:=00000H; Dat[275]:=00000H;(*46*)
  541.  Dat[276]:=00000H; Dat[277]:=00000H; Dat[278]:=00000H; Dat[279]:=00000H;
  542.  Dat[280]:=00000H; Dat[281]:=00000H;(*47*)
  543.  Dat[282]:=00000H; Dat[283]:=00000H; Dat[284]:=00000H; Dat[285]:=00000H;
  544.  Dat[286]:=00000H; Dat[287]:=00000H;(*48*)
  545.  
  546.   (* Plane 2 *)
  547.  Dat[288]:=00005H; Dat[289]:=05555H; Dat[290]:=05555H; Dat[291]:=05555H;
  548.  Dat[292]:=05550H; Dat[293]:=00000H;(* 1*)
  549.  Dat[294]:=00005H; Dat[295]:=05555H; Dat[296]:=05555H; Dat[297]:=05555H;
  550.  Dat[298]:=05550H; Dat[299]:=00000H;(* 2*)
  551.  Dat[300]:=00005H; Dat[301]:=05400H; Dat[302]:=01555H; Dat[303]:=05400H;
  552.  Dat[304]:=05550H; Dat[305]:=00000H;(* 3*)
  553.  Dat[306]:=00005H; Dat[307]:=05000H; Dat[308]:=00555H; Dat[309]:=04000H;
  554.  Dat[310]:=00550H; Dat[311]:=00000H;(* 4*)
  555.  Dat[312]:=00005H; Dat[313]:=04000H; Dat[314]:=00155H; Dat[315]:=00000H;
  556.  Dat[316]:=00150H; Dat[317]:=00000H;(* 5*)
  557.  Dat[318]:=00005H; Dat[319]:=00000H; Dat[320]:=00054H; Dat[321]:=00000H;
  558.  Dat[322]:=00050H; Dat[323]:=00000H;(* 6*)
  559.  Dat[324]:=00004H; Dat[325]:=00000H; Dat[326]:=00014H; Dat[327]:=00000H;
  560.  Dat[328]:=00050H; Dat[329]:=00000H;(* 7*)
  561.  Dat[330]:=0C004H; Dat[331]:=00000H; Dat[332]:=00014H; Dat[333]:=00003H;
  562.  Dat[334]:=00050H; Dat[335]:=00000H;(* 8*)
  563.  Dat[336]:=0F804H; Dat[337]:=00000H; Dat[338]:=00010H; Dat[339]:=0007FH;
  564.  Dat[340]:=00010H; Dat[341]:=00000H;(* 9*)
  565.  Dat[342]:=0FF84H; Dat[343]:=00000H; Dat[344]:=00010H; Dat[345]:=00FFFH;
  566.  Dat[346]:=00010H; Dat[347]:=00000H;(*10*)
  567.  Dat[348]:=0FFFFH; Dat[349]:=08000H; Dat[350]:=0003FH; Dat[351]:=0FFFFH;
  568.  Dat[352]:=00010H; Dat[353]:=00000H;(*11*)
  569.  Dat[354]:=0FFFFH; Dat[355]:=0FFFFH; Dat[356]:=0FFFFH; Dat[357]:=0F7FFH;
  570.  Dat[358]:=00050H; Dat[359]:=00000H;(*12*)
  571.  Dat[360]:=0FF64H; Dat[361]:=07FFFH; Dat[362]:=0FFD4H; Dat[363]:=000BFH;
  572.  Dat[364]:=00050H; Dat[365]:=00000H;(*13*)
  573.  Dat[366]:=0F405H; Dat[367]:=003FFH; Dat[368]:=0FFD4H; Dat[369]:=0000FH;
  574.  Dat[370]:=00050H; Dat[371]:=00000H;(*14*)
  575.  Dat[372]:=0E005H; Dat[373]:=0407FH; Dat[374]:=0FF55H; Dat[375]:=00007H;
  576.  Dat[376]:=00150H; Dat[377]:=00000H;(*15*)
  577.  Dat[378]:=0E005H; Dat[379]:=0501FH; Dat[380]:=0FD55H; Dat[381]:=04007H;
  578.  Dat[382]:=00550H; Dat[383]:=00000H;(*16*)
  579.  Dat[384]:=0C005H; Dat[385]:=05407H; Dat[386]:=0F555H; Dat[387]:=05403H;
  580.  Dat[388]:=05550H; Dat[389]:=00000H;(*17*)
  581.  Dat[390]:=0C005H; Dat[391]:=05557H; Dat[392]:=0D555H; Dat[393]:=05557H;
  582.  Dat[394]:=05550H; Dat[395]:=00000H;(*18*)
  583.  Dat[396]:=0C005H; Dat[397]:=05557H; Dat[398]:=0D555H; Dat[399]:=05403H;
  584.  Dat[400]:=05550H; Dat[401]:=00000H;(*19*)
  585.  Dat[402]:=0E005H; Dat[403]:=05555H; Dat[404]:=0D555H; Dat[405]:=04007H;
  586.  Dat[406]:=00550H; Dat[407]:=00000H;(*20*)
  587.  Dat[408]:=0E005H; Dat[409]:=05555H; Dat[410]:=0D555H; Dat[411]:=00007H;
  588.  Dat[412]:=00150H; Dat[413]:=00000H;(*21*)
  589.  Dat[414]:=0F005H; Dat[415]:=05555H; Dat[416]:=0D554H; Dat[417]:=0000FH;
  590.  Dat[418]:=00050H; Dat[419]:=00000H;(*22*)
  591.  Dat[420]:=0F805H; Dat[421]:=05557H; Dat[422]:=0D554H; Dat[423]:=0003FH;
  592.  Dat[424]:=00050H; Dat[425]:=00000H;(*23*)
  593.  Dat[426]:=0FC05H; Dat[427]:=05557H; Dat[428]:=0D554H; Dat[429]:=0007FH;
  594.  Dat[430]:=00050H; Dat[431]:=00000H;(*24*)
  595.  Dat[432]:=0FF05H; Dat[433]:=05557H; Dat[434]:=0F550H; Dat[435]:=000FFH;
  596.  Dat[436]:=00010H; Dat[437]:=00000H;(*25*)
  597.  Dat[438]:=0FF85H; Dat[439]:=0555FH; Dat[440]:=0FD50H; Dat[441]:=007FFH;
  598.  Dat[442]:=00010H; Dat[443]:=00000H;(*26*)
  599.  Dat[444]:=0FFE5H; Dat[445]:=0557FH; Dat[446]:=0FF50H; Dat[447]:=00FFFH;
  600.  Dat[448]:=00010H; Dat[449]:=00000H;(*27*)
  601.  Dat[450]:=0FFFFH; Dat[451]:=0D7FFH; Dat[452]:=0FFFFH; Dat[453]:=0F7FFH;
  602.  Dat[454]:=00050H; Dat[455]:=00000H;(*28*)
  603.  Dat[456]:=0FFFFH; Dat[457]:=0FFFFH; Dat[458]:=0FFD4H; Dat[459]:=000BFH;
  604.  Dat[460]:=00050H; Dat[461]:=00000H;(*29*)
  605.  Dat[462]:=0FFFFH; Dat[463]:=0FFFFH; Dat[464]:=0FFD4H; Dat[465]:=0000FH;
  606.  Dat[466]:=00050H; Dat[467]:=00000H;(*30*)
  607.  Dat[468]:=0FFFFH; Dat[469]:=0FFFFH; Dat[470]:=0FF55H; Dat[471]:=00007H;
  608.  Dat[472]:=00150H; Dat[473]:=00000H;(*31*)
  609.  Dat[474]:=0FFFFH; Dat[475]:=0FFFFH; Dat[476]:=0FD55H; Dat[477]:=04007H;
  610.  Dat[478]:=00550H; Dat[479]:=00000H;(*32*)
  611.  Dat[480]:=0FFFFH; Dat[481]:=0FFFFH; Dat[482]:=0F555H; Dat[483]:=05403H;
  612.  Dat[484]:=05550H; Dat[485]:=00000H;(*33*)
  613.  Dat[486]:=0FFFFH; Dat[487]:=0FFFFH; Dat[488]:=0D555H; Dat[489]:=05557H;
  614.  Dat[490]:=05550H; Dat[491]:=00000H;(*34*)
  615.  Dat[492]:=0FFFFH; Dat[493]:=0FFFFH; Dat[494]:=0D555H; Dat[495]:=05557H;
  616.  Dat[496]:=05550H; Dat[497]:=00000H;(*35*)
  617.  Dat[498]:=0FFFFH; Dat[499]:=0FFFFH; Dat[500]:=08000H; Dat[501]:=00007H;
  618.  Dat[502]:=00000H; Dat[503]:=00000H;(*36*)
  619.  Dat[504]:=0FFFFH; Dat[505]:=0FFFFH; Dat[506]:=08000H; Dat[507]:=00007H;
  620.  Dat[508]:=00000H; Dat[509]:=00000H;(*37*)
  621.  Dat[510]:=0FFFFH; Dat[511]:=0FFFFH; Dat[512]:=08000H; Dat[513]:=0000FH;
  622.  Dat[514]:=00000H; Dat[515]:=00000H;(*38*)
  623.  Dat[516]:=0FFFFH; Dat[517]:=0FFFFH; Dat[518]:=0C000H; Dat[519]:=0003FH;
  624.  Dat[520]:=00000H; Dat[521]:=00000H;(*39*)
  625.  Dat[522]:=0FFFFH; Dat[523]:=0FFFFH; Dat[524]:=0C000H; Dat[525]:=0007FH;
  626.  Dat[526]:=00000H; Dat[527]:=00000H;(*40*)
  627.  Dat[528]:=0FFFFH; Dat[529]:=0FFFFH; Dat[530]:=0E000H; Dat[531]:=000FFH;
  628.  Dat[532]:=00000H; Dat[533]:=00000H;(*41*)
  629.  Dat[534]:=0FFFFH; Dat[535]:=0FFFFH; Dat[536]:=0F800H; Dat[537]:=007FFH;
  630.  Dat[538]:=00000H; Dat[539]:=00000H;(*42*)
  631.  Dat[540]:=03FFFH; Dat[541]:=0FFFFH; Dat[542]:=0FE00H; Dat[543]:=00FFCH;
  632.  Dat[544]:=00000H; Dat[545]:=00000H;(*43*)
  633.  Dat[546]:=007FFH; Dat[547]:=0FFFFH; Dat[548]:=0FFFFH; Dat[549]:=0FF80H;
  634.  Dat[550]:=00000H; Dat[551]:=00000H;(*44*)
  635.  Dat[552]:=0007FH; Dat[553]:=0FFFFH; Dat[554]:=0FFFFH; Dat[555]:=0F000H;
  636.  Dat[556]:=00000H; Dat[557]:=00000H;(*45*)
  637.  Dat[558]:=00000H; Dat[559]:=07FFFH; Dat[560]:=0FFC0H; Dat[561]:=00000H;
  638.  Dat[562]:=00000H; Dat[563]:=00000H;(*46*)
  639.  Dat[564]:=00000H; Dat[565]:=00000H; Dat[566]:=00000H; Dat[567]:=00000H;
  640.  Dat[568]:=00000H; Dat[569]:=00000H;(*47*)
  641.  Dat[570]:=00000H; Dat[571]:=00000H; Dat[572]:=00000H; Dat[573]:=00000H;
  642.  Dat[574]:=00000H; Dat[575]:=00000H;(*48*)
  643.  
  644. END; 
  645. (* Brushbreite gegenüber IFF geändert! *)
  646.  
  647.  
  648. WITH ImgPtr[PB4]^ DO         (* PB4 *)
  649.  
  650.   (* Plane 1 *)
  651.  Dat[  0]:=00000H; Dat[  1]:=00000H; Dat[  2]:=00000H; Dat[  3]:=00000H;
  652.  Dat[  4]:=00000H; Dat[  5]:=00000H;(* 1*)
  653.  Dat[  6]:=00000H; Dat[  7]:=00000H; Dat[  8]:=00000H; Dat[  9]:=00000H;
  654.  Dat[ 10]:=00000H; Dat[ 11]:=00000H;(* 2*)
  655.  Dat[ 12]:=00000H; Dat[ 13]:=00000H; Dat[ 14]:=00000H; Dat[ 15]:=00000H;
  656.  Dat[ 16]:=00000H; Dat[ 17]:=00000H;(* 3*)
  657.  Dat[ 18]:=00000H; Dat[ 19]:=00000H; Dat[ 20]:=00000H; Dat[ 21]:=00000H;
  658.  Dat[ 22]:=00000H; Dat[ 23]:=00000H;(* 4*)
  659.  Dat[ 24]:=00000H; Dat[ 25]:=00000H; Dat[ 26]:=00000H; Dat[ 27]:=00000H;
  660.  Dat[ 28]:=00000H; Dat[ 29]:=00000H;(* 5*)
  661.  Dat[ 30]:=00000H; Dat[ 31]:=00000H; Dat[ 32]:=00000H; Dat[ 33]:=00000H;
  662.  Dat[ 34]:=00000H; Dat[ 35]:=00000H;(* 6*)
  663.  Dat[ 36]:=00000H; Dat[ 37]:=00000H; Dat[ 38]:=00000H; Dat[ 39]:=00000H;
  664.  Dat[ 40]:=00000H; Dat[ 41]:=00000H;(* 7*)
  665.  Dat[ 42]:=08000H; Dat[ 43]:=00000H; Dat[ 44]:=00000H; Dat[ 45]:=00001H;
  666.  Dat[ 46]:=00000H; Dat[ 47]:=00000H;(* 8*)
  667.  Dat[ 48]:=0E000H; Dat[ 49]:=00000H; Dat[ 50]:=00000H; Dat[ 51]:=0000FH;
  668.  Dat[ 52]:=00000H; Dat[ 53]:=00000H;(* 9*)
  669.  Dat[ 54]:=0FC00H; Dat[ 55]:=00000H; Dat[ 56]:=00000H; Dat[ 57]:=0007FH;
  670.  Dat[ 58]:=00000H; Dat[ 59]:=00000H;(*10*)
  671.  Dat[ 60]:=0FF80H; Dat[ 61]:=00000H; Dat[ 62]:=00000H; Dat[ 63]:=003FFH;
  672.  Dat[ 64]:=00000H; Dat[ 65]:=00000H;(*11*)
  673.  Dat[ 66]:=0FFFCH; Dat[ 67]:=00000H; Dat[ 68]:=00000H; Dat[ 69]:=07FFFH;
  674.  Dat[ 70]:=00000H; Dat[ 71]:=00000H;(*12*)
  675.  Dat[ 72]:=0FFFFH; Dat[ 73]:=0F800H; Dat[ 74]:=0003FH; Dat[ 75]:=0FFFFH;
  676.  Dat[ 76]:=00000H; Dat[ 77]:=00000H;(*13*)
  677.  Dat[ 78]:=0FF63H; Dat[ 79]:=0FFFFH; Dat[ 80]:=0FFFFH; Dat[ 81]:=084BFH;
  678.  Dat[ 82]:=00000H; Dat[ 83]:=00000H;(*14*)
  679.  Dat[ 84]:=0F000H; Dat[ 85]:=007FFH; Dat[ 86]:=0FFC0H; Dat[ 87]:=00007H;
  680.  Dat[ 88]:=00000H; Dat[ 89]:=00000H;(*15*)
  681.  Dat[ 90]:=0E000H; Dat[ 91]:=003FFH; Dat[ 92]:=0FFC0H; Dat[ 93]:=00007H;
  682.  Dat[ 94]:=00000H; Dat[ 95]:=00000H;(*16*)
  683.  Dat[ 96]:=0C000H; Dat[ 97]:=0007FH; Dat[ 98]:=0FE00H; Dat[ 99]:=00003H;
  684.  Dat[100]:=00000H; Dat[101]:=00000H;(*17*)
  685.  Dat[102]:=0C000H; Dat[103]:=0001FH; Dat[104]:=0F800H; Dat[105]:=00003H;
  686.  Dat[106]:=00000H; Dat[107]:=00000H;(*18*)
  687.  Dat[108]:=0C000H; Dat[109]:=00007H; Dat[110]:=0E000H; Dat[111]:=00003H;
  688.  Dat[112]:=00000H; Dat[113]:=00000H;(*19*)
  689.  Dat[114]:=0E000H; Dat[115]:=00003H; Dat[116]:=0C000H; Dat[117]:=00007H;
  690.  Dat[118]:=00000H; Dat[119]:=00000H;(*20*)
  691.  Dat[120]:=0E000H; Dat[121]:=00003H; Dat[122]:=0C000H; Dat[123]:=00007H;
  692.  Dat[124]:=00000H; Dat[125]:=00000H;(*21*)
  693.  Dat[126]:=0E000H; Dat[127]:=00001H; Dat[128]:=08000H; Dat[129]:=0000FH;
  694.  Dat[130]:=00000H; Dat[131]:=00000H;(*22*)
  695.  Dat[132]:=0F000H; Dat[133]:=00001H; Dat[134]:=08000H; Dat[135]:=0000FH;
  696.  Dat[136]:=00000H; Dat[137]:=00000H;(*23*)
  697.  Dat[138]:=0FC00H; Dat[139]:=00001H; Dat[140]:=08000H; Dat[141]:=0003FH;
  698.  Dat[142]:=00000H; Dat[143]:=00000H;(*24*)
  699.  Dat[144]:=0FC00H; Dat[145]:=00003H; Dat[146]:=0C000H; Dat[147]:=0007FH;
  700.  Dat[148]:=00000H; Dat[149]:=00000H;(*25*)
  701.  Dat[150]:=0FF00H; Dat[151]:=00003H; Dat[152]:=0C000H; Dat[153]:=000FFH;
  702.  Dat[154]:=00000H; Dat[155]:=00000H;(*26*)
  703.  Dat[156]:=0FF80H; Dat[157]:=00007H; Dat[158]:=0E000H; Dat[159]:=003FFH;
  704.  Dat[160]:=00000H; Dat[161]:=00000H;(*27*)
  705.  Dat[162]:=0FFE0H; Dat[163]:=0001FH; Dat[164]:=0F800H; Dat[165]:=007FFH;
  706.  Dat[166]:=00000H; Dat[167]:=00000H;(*28*)
  707.  Dat[168]:=0FFFCH; Dat[169]:=0007FH; Dat[170]:=0FE00H; Dat[171]:=07FFFH;
  708.  Dat[172]:=00000H; Dat[173]:=00000H;(*29*)
  709.  Dat[174]:=0FFFFH; Dat[175]:=0FBFFH; Dat[176]:=0FFFFH; Dat[177]:=084BFH;
  710.  Dat[178]:=00000H; Dat[179]:=00000H;(*30*)
  711.  Dat[180]:=0FFFFH; Dat[181]:=0FFFFH; Dat[182]:=0FFC0H; Dat[183]:=00007H;
  712.  Dat[184]:=00000H; Dat[185]:=00000H;(*31*)
  713.  Dat[186]:=0FFFFH; Dat[187]:=0FFFFH; Dat[188]:=0FFC0H; Dat[189]:=00007H;
  714.  Dat[190]:=00000H; Dat[191]:=00000H;(*32*)
  715.  Dat[192]:=0FFFFH; Dat[193]:=0FFFFH; Dat[194]:=0FE00H; Dat[195]:=00003H;
  716.  Dat[196]:=00000H; Dat[197]:=00000H;(*33*)
  717.  Dat[198]:=0FFFFH; Dat[199]:=0FFFFH; Dat[200]:=0F800H; Dat[201]:=00003H;
  718.  Dat[202]:=00000H; Dat[203]:=00000H;(*34*)
  719.  Dat[204]:=0FFFFH; Dat[205]:=0FFFFH; Dat[206]:=0E000H; Dat[207]:=00003H;
  720.  Dat[208]:=00000H; Dat[209]:=00000H;(*35*)
  721.  Dat[210]:=0FFFFH; Dat[211]:=0FFFFH; Dat[212]:=0C000H; Dat[213]:=00007H;
  722.  Dat[214]:=00000H; Dat[215]:=00000H;(*36*)
  723.  Dat[216]:=0FFFFH; Dat[217]:=0FFFFH; Dat[218]:=0C000H; Dat[219]:=00007H;
  724.  Dat[220]:=00000H; Dat[221]:=00000H;(*37*)
  725.  Dat[222]:=0FFFFH; Dat[223]:=0FFFFH; Dat[224]:=08000H; Dat[225]:=0000FH;
  726.  Dat[226]:=00000H; Dat[227]:=00000H;(*38*)
  727.  Dat[228]:=0FFFFH; Dat[229]:=0FFFFH; Dat[230]:=08000H; Dat[231]:=0000FH;
  728.  Dat[232]:=00000H; Dat[233]:=00000H;(*39*)
  729.  Dat[234]:=0FFFFH; Dat[235]:=0FFFFH; Dat[236]:=08000H; Dat[237]:=0003FH;
  730.  Dat[238]:=00000H; Dat[239]:=00000H;(*40*)
  731.  Dat[240]:=0FFFFH; Dat[241]:=0FFFFH; Dat[242]:=0C000H; Dat[243]:=0007FH;
  732.  Dat[244]:=00000H; Dat[245]:=00000H;(*41*)
  733.  Dat[246]:=0FFFFH; Dat[247]:=0FFFFH; Dat[248]:=0C000H; Dat[249]:=000FFH;
  734.  Dat[250]:=00000H; Dat[251]:=00000H;(*42*)
  735.  Dat[252]:=07FFFH; Dat[253]:=0FFFFH; Dat[254]:=0E000H; Dat[255]:=003FEH;
  736.  Dat[256]:=00000H; Dat[257]:=00000H;(*43*)
  737.  Dat[258]:=01FFFH; Dat[259]:=0FFFFH; Dat[260]:=0F800H; Dat[261]:=007F0H;
  738.  Dat[262]:=00000H; Dat[263]:=00000H;(*44*)
  739.  Dat[264]:=003FFH; Dat[265]:=0FFFFH; Dat[266]:=0FE00H; Dat[267]:=07F80H;
  740.  Dat[268]:=00000H; Dat[269]:=00000H;(*45*)
  741.  Dat[270]:=0007FH; Dat[271]:=0FFFFH; Dat[272]:=0FFFFH; Dat[273]:=0FC00H;
  742.  Dat[274]:=00000H; Dat[275]:=00000H;(*46*)
  743.  Dat[276]:=00003H; Dat[277]:=0FFFFH; Dat[278]:=0FFFFH; Dat[279]:=08000H;
  744.  Dat[280]:=00000H; Dat[281]:=00000H;(*47*)
  745.  Dat[282]:=00000H; Dat[283]:=007FFH; Dat[284]:=0FFC0H; Dat[285]:=00000H;
  746.  Dat[286]:=00000H; Dat[287]:=00000H;(*48*)
  747.  
  748.   (* Plane 2 *)
  749.  Dat[288]:=00005H; Dat[289]:=05555H; Dat[290]:=05555H; Dat[291]:=05555H;
  750.  Dat[292]:=05550H; Dat[293]:=00000H;(* 1*)
  751.  Dat[294]:=00005H; Dat[295]:=05555H; Dat[296]:=05555H; Dat[297]:=05555H;
  752.  Dat[298]:=05550H; Dat[299]:=00000H;(* 2*)
  753.  Dat[300]:=00005H; Dat[301]:=05400H; Dat[302]:=01555H; Dat[303]:=05400H;
  754.  Dat[304]:=05550H; Dat[305]:=00000H;(* 3*)
  755.  Dat[306]:=00005H; Dat[307]:=05000H; Dat[308]:=00555H; Dat[309]:=04000H;
  756.  Dat[310]:=00550H; Dat[311]:=00000H;(* 4*)
  757.  Dat[312]:=00005H; Dat[313]:=04000H; Dat[314]:=00155H; Dat[315]:=00000H;
  758.  Dat[316]:=00150H; Dat[317]:=00000H;(* 5*)
  759.  Dat[318]:=00005H; Dat[319]:=00000H; Dat[320]:=00054H; Dat[321]:=00000H;
  760.  Dat[322]:=00050H; Dat[323]:=00000H;(* 6*)
  761.  Dat[324]:=00004H; Dat[325]:=00000H; Dat[326]:=00014H; Dat[327]:=00000H;
  762.  Dat[328]:=00050H; Dat[329]:=00000H;(* 7*)
  763.  Dat[330]:=08004H; Dat[331]:=00000H; Dat[332]:=00014H; Dat[333]:=00001H;
  764.  Dat[334]:=00050H; Dat[335]:=00000H;(* 8*)
  765.  Dat[336]:=0E004H; Dat[337]:=00000H; Dat[338]:=00010H; Dat[339]:=0000FH;
  766.  Dat[340]:=00010H; Dat[341]:=00000H;(* 9*)
  767.  Dat[342]:=0FC04H; Dat[343]:=00000H; Dat[344]:=00010H; Dat[345]:=0007FH;
  768.  Dat[346]:=00010H; Dat[347]:=00000H;(*10*)
  769.  Dat[348]:=0FF84H; Dat[349]:=00000H; Dat[350]:=00010H; Dat[351]:=003FFH;
  770.  Dat[352]:=00010H; Dat[353]:=00000H;(*11*)
  771.  Dat[354]:=0FFFCH; Dat[355]:=00000H; Dat[356]:=00014H; Dat[357]:=07FFFH;
  772.  Dat[358]:=00050H; Dat[359]:=00000H;(*12*)
  773.  Dat[360]:=0FFFFH; Dat[361]:=0F800H; Dat[362]:=0003FH; Dat[363]:=0FFFFH;
  774.  Dat[364]:=00050H; Dat[365]:=00000H;(*13*)
  775.  Dat[366]:=0FF67H; Dat[367]:=0FFFFH; Dat[368]:=0FFFFH; Dat[369]:=084BFH;
  776.  Dat[370]:=00050H; Dat[371]:=00000H;(*14*)
  777.  Dat[372]:=0F005H; Dat[373]:=047FFH; Dat[374]:=0FFD5H; Dat[375]:=00007H;
  778.  Dat[376]:=00150H; Dat[377]:=00000H;(*15*)
  779.  Dat[378]:=0E005H; Dat[379]:=053FFH; Dat[380]:=0FFD5H; Dat[381]:=04007H;
  780.  Dat[382]:=00550H; Dat[383]:=00000H;(*16*)
  781.  Dat[384]:=0C005H; Dat[385]:=0547FH; Dat[386]:=0FF55H; Dat[387]:=05403H;
  782.  Dat[388]:=05550H; Dat[389]:=00000H;(*17*)
  783.  Dat[390]:=0C005H; Dat[391]:=0555FH; Dat[392]:=0FD55H; Dat[393]:=05557H;
  784.  Dat[394]:=05550H; Dat[395]:=00000H;(*18*)
  785.  Dat[396]:=0C005H; Dat[397]:=05557H; Dat[398]:=0F555H; Dat[399]:=05403H;
  786.  Dat[400]:=05550H; Dat[401]:=00000H;(*19*)
  787.  Dat[402]:=0E005H; Dat[403]:=05557H; Dat[404]:=0D555H; Dat[405]:=04007H;
  788.  Dat[406]:=00550H; Dat[407]:=00000H;(*20*)
  789.  Dat[408]:=0E005H; Dat[409]:=05557H; Dat[410]:=0D555H; Dat[411]:=00007H;
  790.  Dat[412]:=00150H; Dat[413]:=00000H;(*21*)
  791.  Dat[414]:=0E005H; Dat[415]:=05555H; Dat[416]:=0D554H; Dat[417]:=0000FH;
  792.  Dat[418]:=00050H; Dat[419]:=00000H;(*22*)
  793.  Dat[420]:=0F005H; Dat[421]:=05555H; Dat[422]:=0D554H; Dat[423]:=0000FH;
  794.  Dat[424]:=00050H; Dat[425]:=00000H;(*23*)
  795.  Dat[426]:=0FC05H; Dat[427]:=05555H; Dat[428]:=0D554H; Dat[429]:=0003FH;
  796.  Dat[430]:=00050H; Dat[431]:=00000H;(*24*)
  797.  Dat[432]:=0FC05H; Dat[433]:=05557H; Dat[434]:=0D550H; Dat[435]:=0007FH;
  798.  Dat[436]:=00010H; Dat[437]:=00000H;(*25*)
  799.  Dat[438]:=0FF05H; Dat[439]:=05557H; Dat[440]:=0D550H; Dat[441]:=000FFH;
  800.  Dat[442]:=00010H; Dat[443]:=00000H;(*26*)
  801.  Dat[444]:=0FF85H; Dat[445]:=05557H; Dat[446]:=0F550H; Dat[447]:=003FFH;
  802.  Dat[448]:=00010H; Dat[449]:=00000H;(*27*)
  803.  Dat[450]:=0FFE5H; Dat[451]:=0555FH; Dat[452]:=0FD54H; Dat[453]:=007FFH;
  804.  Dat[454]:=00050H; Dat[455]:=00000H;(*28*)
  805.  Dat[456]:=0FFFDH; Dat[457]:=0557FH; Dat[458]:=0FF54H; Dat[459]:=07FFFH;
  806.  Dat[460]:=00050H; Dat[461]:=00000H;(*29*)
  807.  Dat[462]:=0FFFFH; Dat[463]:=0FFFFH; Dat[464]:=0FFFFH; Dat[465]:=084BFH;
  808.  Dat[466]:=00050H; Dat[467]:=00000H;(*30*)
  809.  Dat[468]:=0FFFFH; Dat[469]:=0FFFFH; Dat[470]:=0FFD5H; Dat[471]:=00007H;
  810.  Dat[472]:=00150H; Dat[473]:=00000H;(*31*)
  811.  Dat[474]:=0FFFFH; Dat[475]:=0FFFFH; Dat[476]:=0FFD5H; Dat[477]:=04007H;
  812.  Dat[478]:=00550H; Dat[479]:=00000H;(*32*)
  813.  Dat[480]:=0FFFFH; Dat[481]:=0FFFFH; Dat[482]:=0FF55H; Dat[483]:=05403H;
  814.  Dat[484]:=05550H; Dat[485]:=00000H;(*33*)
  815.  Dat[486]:=0FFFFH; Dat[487]:=0FFFFH; Dat[488]:=0FD55H; Dat[489]:=05557H;
  816.  Dat[490]:=05550H; Dat[491]:=00000H;(*34*)
  817.  Dat[492]:=0FFFFH; Dat[493]:=0FFFFH; Dat[494]:=0F555H; Dat[495]:=05557H;
  818.  Dat[496]:=05550H; Dat[497]:=00000H;(*35*)
  819.  Dat[498]:=0FFFFH; Dat[499]:=0FFFFH; Dat[500]:=0C000H; Dat[501]:=00007H;
  820.  Dat[502]:=00000H; Dat[503]:=00000H;(*36*)
  821.  Dat[504]:=0FFFFH; Dat[505]:=0FFFFH; Dat[506]:=0C000H; Dat[507]:=00007H;
  822.  Dat[508]:=00000H; Dat[509]:=00000H;(*37*)
  823.  Dat[510]:=0FFFFH; Dat[511]:=0FFFFH; Dat[512]:=08000H; Dat[513]:=0000FH;
  824.  Dat[514]:=00000H; Dat[515]:=00000H;(*38*)
  825.  Dat[516]:=0FFFFH; Dat[517]:=0FFFFH; Dat[518]:=08000H; Dat[519]:=0000FH;
  826.  Dat[520]:=00000H; Dat[521]:=00000H;(*39*)
  827.  Dat[522]:=0FFFFH; Dat[523]:=0FFFFH; Dat[524]:=08000H; Dat[525]:=0003FH;
  828.  Dat[526]:=00000H; Dat[527]:=00000H;(*40*)
  829.  Dat[528]:=0FFFFH; Dat[529]:=0FFFFH; Dat[530]:=0C000H; Dat[531]:=0007FH;
  830.  Dat[532]:=00000H; Dat[533]:=00000H;(*41*)
  831.  Dat[534]:=0FFFFH; Dat[535]:=0FFFFH; Dat[536]:=0C000H; Dat[537]:=000FFH;
  832.  Dat[538]:=00000H; Dat[539]:=00000H;(*42*)
  833.  Dat[540]:=07FFFH; Dat[541]:=0FFFFH; Dat[542]:=0E000H; Dat[543]:=003FEH;
  834.  Dat[544]:=00000H; Dat[545]:=00000H;(*43*)
  835.  Dat[546]:=01FFFH; Dat[547]:=0FFFFH; Dat[548]:=0F800H; Dat[549]:=007F0H;
  836.  Dat[550]:=00000H; Dat[551]:=00000H;(*44*)
  837.  Dat[552]:=003FFH; Dat[553]:=0FFFFH; Dat[554]:=0FE00H; Dat[555]:=07F80H;
  838.  Dat[556]:=00000H; Dat[557]:=00000H;(*45*)
  839.  Dat[558]:=0007FH; Dat[559]:=0FFFFH; Dat[560]:=0FFFFH; Dat[561]:=0FC00H;
  840.  Dat[562]:=00000H; Dat[563]:=00000H;(*46*)
  841.  Dat[564]:=00003H; Dat[565]:=0FFFFH; Dat[566]:=0FFFFH; Dat[567]:=08000H;
  842.  Dat[568]:=00000H; Dat[569]:=00000H;(*47*)
  843.  Dat[570]:=00000H; Dat[571]:=007FFH; Dat[572]:=0FFC0H; Dat[573]:=00000H;
  844.  Dat[574]:=00000H; Dat[575]:=00000H;(*48*)
  845.  
  846. END; 
  847. (* Brushbreite gegenüber IFF geändert! *)
  848.  
  849.  
  850. WITH ImgPtr[PB5]^ DO         (* PB5 *)
  851.  
  852.   (* Plane 1 *)
  853.  Dat[  0]:=00000H; Dat[  1]:=00000H; Dat[  2]:=00000H; Dat[  3]:=00000H;
  854.  Dat[  4]:=00000H; Dat[  5]:=00000H;(* 1*)
  855.  Dat[  6]:=00000H; Dat[  7]:=00000H; Dat[  8]:=00000H; Dat[  9]:=00000H;
  856.  Dat[ 10]:=00000H; Dat[ 11]:=00000H;(* 2*)
  857.  Dat[ 12]:=00000H; Dat[ 13]:=00000H; Dat[ 14]:=00000H; Dat[ 15]:=00000H;
  858.  Dat[ 16]:=00000H; Dat[ 17]:=00000H;(* 3*)
  859.  Dat[ 18]:=00000H; Dat[ 19]:=00000H; Dat[ 20]:=00000H; Dat[ 21]:=00000H;
  860.  Dat[ 22]:=00000H; Dat[ 23]:=00000H;(* 4*)
  861.  Dat[ 24]:=00000H; Dat[ 25]:=00000H; Dat[ 26]:=00000H; Dat[ 27]:=00000H;
  862.  Dat[ 28]:=00000H; Dat[ 29]:=00000H;(* 5*)
  863.  Dat[ 30]:=00003H; Dat[ 31]:=0FFFFH; Dat[ 32]:=0FFFFH; Dat[ 33]:=08000H;
  864.  Dat[ 34]:=00000H; Dat[ 35]:=00000H;(* 6*)
  865.  Dat[ 36]:=01FFFH; Dat[ 37]:=0FFFFH; Dat[ 38]:=0FFFFH; Dat[ 39]:=0FFF0H;
  866.  Dat[ 40]:=00000H; Dat[ 41]:=00000H;(* 7*)
  867.  Dat[ 42]:=0FFFCH; Dat[ 43]:=003FFH; Dat[ 44]:=0FFC0H; Dat[ 45]:=07FFFH;
  868.  Dat[ 46]:=00000H; Dat[ 47]:=00000H;(* 8*)
  869.  Dat[ 48]:=0FFE0H; Dat[ 49]:=0007FH; Dat[ 50]:=0FE00H; Dat[ 51]:=007FFH;
  870.  Dat[ 52]:=00000H; Dat[ 53]:=00000H;(* 9*)
  871.  Dat[ 54]:=0FF00H; Dat[ 55]:=0001FH; Dat[ 56]:=0F800H; Dat[ 57]:=000FFH;
  872.  Dat[ 58]:=00000H; Dat[ 59]:=00000H;(*10*)
  873.  Dat[ 60]:=0FC00H; Dat[ 61]:=00007H; Dat[ 62]:=0E000H; Dat[ 63]:=0003FH;
  874.  Dat[ 64]:=00000H; Dat[ 65]:=00000H;(*11*)
  875.  Dat[ 66]:=0F000H; Dat[ 67]:=00003H; Dat[ 68]:=0C000H; Dat[ 69]:=0000FH;
  876.  Dat[ 70]:=00000H; Dat[ 71]:=00000H;(*12*)
  877.  Dat[ 72]:=0E000H; Dat[ 73]:=00003H; Dat[ 74]:=0C000H; Dat[ 75]:=0000FH;
  878.  Dat[ 76]:=00000H; Dat[ 77]:=00000H;(*13*)
  879.  Dat[ 78]:=0E000H; Dat[ 79]:=00001H; Dat[ 80]:=08000H; Dat[ 81]:=00007H;
  880.  Dat[ 82]:=00000H; Dat[ 83]:=00000H;(*14*)
  881.  Dat[ 84]:=0E000H; Dat[ 85]:=00001H; Dat[ 86]:=08000H; Dat[ 87]:=00007H;
  882.  Dat[ 88]:=00000H; Dat[ 89]:=00000H;(*15*)
  883.  Dat[ 90]:=0C000H; Dat[ 91]:=00001H; Dat[ 92]:=08000H; Dat[ 93]:=00003H;
  884.  Dat[ 94]:=00000H; Dat[ 95]:=00000H;(*16*)
  885.  Dat[ 96]:=0C000H; Dat[ 97]:=00003H; Dat[ 98]:=0C000H; Dat[ 99]:=00003H;
  886.  Dat[100]:=00000H; Dat[101]:=00000H;(*17*)
  887.  Dat[102]:=0C000H; Dat[103]:=00003H; Dat[104]:=0C000H; Dat[105]:=00003H;
  888.  Dat[106]:=00000H; Dat[107]:=00000H;(*18*)
  889.  Dat[108]:=0E000H; Dat[109]:=00007H; Dat[110]:=0E000H; Dat[111]:=00007H;
  890.  Dat[112]:=00000H; Dat[113]:=00000H;(*19*)
  891.  Dat[114]:=0F000H; Dat[115]:=0001FH; Dat[116]:=0F800H; Dat[117]:=00007H;
  892.  Dat[118]:=00000H; Dat[119]:=00000H;(*20*)
  893.  Dat[120]:=0FC00H; Dat[121]:=0007FH; Dat[122]:=0FE00H; Dat[123]:=0003FH;
  894.  Dat[124]:=00000H; Dat[125]:=00000H;(*21*)
  895.  Dat[126]:=0FF00H; Dat[127]:=003FFH; Dat[128]:=0FFC0H; Dat[129]:=000FFH;
  896.  Dat[130]:=00000H; Dat[131]:=00000H;(*22*)
  897.  Dat[132]:=0FFE3H; Dat[133]:=0FFFFH; Dat[134]:=0FFFFH; Dat[135]:=087FFH;
  898.  Dat[136]:=00000H; Dat[137]:=00000H;(*23*)
  899.  Dat[138]:=0FFFFH; Dat[139]:=0FFFFH; Dat[140]:=0FFC0H; Dat[141]:=07FFFH;
  900.  Dat[142]:=00000H; Dat[143]:=00000H;(*24*)
  901.  Dat[144]:=0FFFFH; Dat[145]:=0FFFFH; Dat[146]:=0FE00H; Dat[147]:=007FFH;
  902.  Dat[148]:=00000H; Dat[149]:=00000H;(*25*)
  903.  Dat[150]:=0FFFFH; Dat[151]:=0FFFFH; Dat[152]:=0F800H; Dat[153]:=000FFH;
  904.  Dat[154]:=00000H; Dat[155]:=00000H;(*26*)
  905.  Dat[156]:=0FFFFH; Dat[157]:=0FFFFH; Dat[158]:=0E000H; Dat[159]:=0003FH;
  906.  Dat[160]:=00000H; Dat[161]:=00000H;(*27*)
  907.  Dat[162]:=0FFFFH; Dat[163]:=0FFFFH; Dat[164]:=0C000H; Dat[165]:=0000FH;
  908.  Dat[166]:=00000H; Dat[167]:=00000H;(*28*)
  909.  Dat[168]:=0FFFFH; Dat[169]:=0FFFFH; Dat[170]:=0C000H; Dat[171]:=0000FH;
  910.  Dat[172]:=00000H; Dat[173]:=00000H;(*29*)
  911.  Dat[174]:=0FFFFH; Dat[175]:=0FFFFH; Dat[176]:=08000H; Dat[177]:=00007H;
  912.  Dat[178]:=00000H; Dat[179]:=00000H;(*30*)
  913.  Dat[180]:=0FFFFH; Dat[181]:=0FFFFH; Dat[182]:=08000H; Dat[183]:=00007H;
  914.  Dat[184]:=00000H; Dat[185]:=00000H;(*31*)
  915.  Dat[186]:=0FFFFH; Dat[187]:=0FFFFH; Dat[188]:=08000H; Dat[189]:=00003H;
  916.  Dat[190]:=00000H; Dat[191]:=00000H;(*32*)
  917.  Dat[192]:=0FFFFH; Dat[193]:=0FFFFH; Dat[194]:=0C000H; Dat[195]:=00003H;
  918.  Dat[196]:=00000H; Dat[197]:=00000H;(*33*)
  919.  Dat[198]:=0FFFFH; Dat[199]:=0FFFFH; Dat[200]:=0C000H; Dat[201]:=00003H;
  920.  Dat[202]:=00000H; Dat[203]:=00000H;(*34*)
  921.  Dat[204]:=0FFFFH; Dat[205]:=0FFFFH; Dat[206]:=0E000H; Dat[207]:=00007H;
  922.  Dat[208]:=00000H; Dat[209]:=00000H;(*35*)
  923.  Dat[210]:=0FFFFH; Dat[211]:=0FFFFH; Dat[212]:=0F800H; Dat[213]:=00007H;
  924.  Dat[214]:=00000H; Dat[215]:=00000H;(*36*)
  925.  Dat[216]:=0FFFFH; Dat[217]:=0FFFFH; Dat[218]:=0FE00H; Dat[219]:=0003FH;
  926.  Dat[220]:=00000H; Dat[221]:=00000H;(*37*)
  927.  Dat[222]:=0FFFFH; Dat[223]:=0FFFFH; Dat[224]:=0FFC0H; Dat[225]:=000FFH;
  928.  Dat[226]:=00000H; Dat[227]:=00000H;(*38*)
  929.  Dat[228]:=0FFFFH; Dat[229]:=0FFFFH; Dat[230]:=0FFFFH; Dat[231]:=087FFH;
  930.  Dat[232]:=00000H; Dat[233]:=00000H;(*39*)
  931.  Dat[234]:=0FFFFH; Dat[235]:=0FFFFH; Dat[236]:=0FFFFH; Dat[237]:=0FFFFH;
  932.  Dat[238]:=00000H; Dat[239]:=00000H;(*40*)
  933.  Dat[240]:=0FFFCH; Dat[241]:=00000H; Dat[242]:=00000H; Dat[243]:=07FFFH;
  934.  Dat[244]:=00000H; Dat[245]:=00000H;(*41*)
  935.  Dat[246]:=0E000H; Dat[247]:=00000H; Dat[248]:=00000H; Dat[249]:=0000FH;
  936.  Dat[250]:=00000H; Dat[251]:=00000H;(*42*)
  937.  Dat[252]:=00000H; Dat[253]:=00000H; Dat[254]:=00000H; Dat[255]:=00000H;
  938.  Dat[256]:=00000H; Dat[257]:=00000H;(*43*)
  939.  Dat[258]:=00000H; Dat[259]:=00000H; Dat[260]:=00000H; Dat[261]:=00000H;
  940.  Dat[262]:=00000H; Dat[263]:=00000H;(*44*)
  941.  Dat[264]:=00000H; Dat[265]:=00000H; Dat[266]:=00000H; Dat[267]:=00000H;
  942.  Dat[268]:=00000H; Dat[269]:=00000H;(*45*)
  943.  Dat[270]:=00000H; Dat[271]:=00000H; Dat[272]:=00000H; Dat[273]:=00000H;
  944.  Dat[274]:=00000H; Dat[275]:=00000H;(*46*)
  945.  Dat[276]:=00000H; Dat[277]:=00000H; Dat[278]:=00000H; Dat[279]:=00000H;
  946.  Dat[280]:=00000H; Dat[281]:=00000H;(*47*)
  947.  Dat[282]:=00000H; Dat[283]:=00000H; Dat[284]:=00000H; Dat[285]:=00000H;
  948.  Dat[286]:=00000H; Dat[287]:=00000H;(*48*)
  949.  
  950.   (* Plane 2 *)
  951.  Dat[288]:=00005H; Dat[289]:=05555H; Dat[290]:=05555H; Dat[291]:=05555H;
  952.  Dat[292]:=05550H; Dat[293]:=00000H;(* 1*)
  953.  Dat[294]:=00005H; Dat[295]:=05555H; Dat[296]:=05555H; Dat[297]:=05555H;
  954.  Dat[298]:=05550H; Dat[299]:=00000H;(* 2*)
  955.  Dat[300]:=00005H; Dat[301]:=05400H; Dat[302]:=01555H; Dat[303]:=05400H;
  956.  Dat[304]:=05550H; Dat[305]:=00000H;(* 3*)
  957.  Dat[306]:=00005H; Dat[307]:=05000H; Dat[308]:=00555H; Dat[309]:=04000H;
  958.  Dat[310]:=00550H; Dat[311]:=00000H;(* 4*)
  959.  Dat[312]:=00005H; Dat[313]:=04000H; Dat[314]:=00155H; Dat[315]:=00000H;
  960.  Dat[316]:=00150H; Dat[317]:=00000H;(* 5*)
  961.  Dat[318]:=00007H; Dat[319]:=0FFFFH; Dat[320]:=0FFFFH; Dat[321]:=08000H;
  962.  Dat[322]:=00050H; Dat[323]:=00000H;(* 6*)
  963.  Dat[324]:=01FFFH; Dat[325]:=0FFFFH; Dat[326]:=0FFFFH; Dat[327]:=0FFF0H;
  964.  Dat[328]:=00050H; Dat[329]:=00000H;(* 7*)
  965.  Dat[330]:=0FFFCH; Dat[331]:=003FFH; Dat[332]:=0FFD4H; Dat[333]:=07FFFH;
  966.  Dat[334]:=00050H; Dat[335]:=00000H;(* 8*)
  967.  Dat[336]:=0FFE4H; Dat[337]:=0007FH; Dat[338]:=0FE10H; Dat[339]:=007FFH;
  968.  Dat[340]:=00010H; Dat[341]:=00000H;(* 9*)
  969.  Dat[342]:=0FF04H; Dat[343]:=0001FH; Dat[344]:=0F810H; Dat[345]:=000FFH;
  970.  Dat[346]:=00010H; Dat[347]:=00000H;(*10*)
  971.  Dat[348]:=0FC04H; Dat[349]:=00007H; Dat[350]:=0E010H; Dat[351]:=0003FH;
  972.  Dat[352]:=00010H; Dat[353]:=00000H;(*11*)
  973.  Dat[354]:=0F004H; Dat[355]:=00003H; Dat[356]:=0C014H; Dat[357]:=0000FH;
  974.  Dat[358]:=00050H; Dat[359]:=00000H;(*12*)
  975.  Dat[360]:=0E004H; Dat[361]:=00003H; Dat[362]:=0C014H; Dat[363]:=0000FH;
  976.  Dat[364]:=00050H; Dat[365]:=00000H;(*13*)
  977.  Dat[366]:=0E005H; Dat[367]:=00001H; Dat[368]:=08054H; Dat[369]:=00007H;
  978.  Dat[370]:=00050H; Dat[371]:=00000H;(*14*)
  979.  Dat[372]:=0E005H; Dat[373]:=04001H; Dat[374]:=08155H; Dat[375]:=00007H;
  980.  Dat[376]:=00150H; Dat[377]:=00000H;(*15*)
  981.  Dat[378]:=0C005H; Dat[379]:=05001H; Dat[380]:=08555H; Dat[381]:=04003H;
  982.  Dat[382]:=00550H; Dat[383]:=00000H;(*16*)
  983.  Dat[384]:=0C005H; Dat[385]:=05403H; Dat[386]:=0D555H; Dat[387]:=05403H;
  984.  Dat[388]:=05550H; Dat[389]:=00000H;(*17*)
  985.  Dat[390]:=0C005H; Dat[391]:=05557H; Dat[392]:=0D555H; Dat[393]:=05557H;
  986.  Dat[394]:=05550H; Dat[395]:=00000H;(*18*)
  987.  Dat[396]:=0E005H; Dat[397]:=05557H; Dat[398]:=0F555H; Dat[399]:=05407H;
  988.  Dat[400]:=05550H; Dat[401]:=00000H;(*19*)
  989.  Dat[402]:=0F005H; Dat[403]:=0555FH; Dat[404]:=0FD55H; Dat[405]:=04007H;
  990.  Dat[406]:=00550H; Dat[407]:=00000H;(*20*)
  991.  Dat[408]:=0FC05H; Dat[409]:=0557FH; Dat[410]:=0FF55H; Dat[411]:=0003FH;
  992.  Dat[412]:=00150H; Dat[413]:=00000H;(*21*)
  993.  Dat[414]:=0FF05H; Dat[415]:=057FFH; Dat[416]:=0FFD4H; Dat[417]:=000FFH;
  994.  Dat[418]:=00050H; Dat[419]:=00000H;(*22*)
  995.  Dat[420]:=0FFE7H; Dat[421]:=0FFFFH; Dat[422]:=0FFFFH; Dat[423]:=087FFH;
  996.  Dat[424]:=00050H; Dat[425]:=00000H;(*23*)
  997.  Dat[426]:=0FFFFH; Dat[427]:=0FFFFH; Dat[428]:=0FFD4H; Dat[429]:=07FFFH;
  998.  Dat[430]:=00050H; Dat[431]:=00000H;(*24*)
  999.  Dat[432]:=0FFFFH; Dat[433]:=0FFFFH; Dat[434]:=0FF50H; Dat[435]:=007FFH;
  1000.  Dat[436]:=00010H; Dat[437]:=00000H;(*25*)
  1001.  Dat[438]:=0FFFFH; Dat[439]:=0FFFFH; Dat[440]:=0FD50H; Dat[441]:=000FFH;
  1002.  Dat[442]:=00010H; Dat[443]:=00000H;(*26*)
  1003.  Dat[444]:=0FFFFH; Dat[445]:=0FFFFH; Dat[446]:=0F550H; Dat[447]:=0003FH;
  1004.  Dat[448]:=00010H; Dat[449]:=00000H;(*27*)
  1005.  Dat[450]:=0FFFFH; Dat[451]:=0FFFFH; Dat[452]:=0D554H; Dat[453]:=0000FH;
  1006.  Dat[454]:=00050H; Dat[455]:=00000H;(*28*)
  1007.  Dat[456]:=0FFFFH; Dat[457]:=0FFFFH; Dat[458]:=0D554H; Dat[459]:=0000FH;
  1008.  Dat[460]:=00050H; Dat[461]:=00000H;(*29*)
  1009.  Dat[462]:=0FFFFH; Dat[463]:=0FFFFH; Dat[464]:=0D554H; Dat[465]:=00007H;
  1010.  Dat[466]:=00050H; Dat[467]:=00000H;(*30*)
  1011.  Dat[468]:=0FFFFH; Dat[469]:=0FFFFH; Dat[470]:=0D555H; Dat[471]:=00007H;
  1012.  Dat[472]:=00150H; Dat[473]:=00000H;(*31*)
  1013.  Dat[474]:=0FFFFH; Dat[475]:=0FFFFH; Dat[476]:=0D555H; Dat[477]:=04003H;
  1014.  Dat[478]:=00550H; Dat[479]:=00000H;(*32*)
  1015.  Dat[480]:=0FFFFH; Dat[481]:=0FFFFH; Dat[482]:=0D555H; Dat[483]:=05403H;
  1016.  Dat[484]:=05550H; Dat[485]:=00000H;(*33*)
  1017.  Dat[486]:=0FFFFH; Dat[487]:=0FFFFH; Dat[488]:=0D555H; Dat[489]:=05557H;
  1018.  Dat[490]:=05550H; Dat[491]:=00000H;(*34*)
  1019.  Dat[492]:=0FFFFH; Dat[493]:=0FFFFH; Dat[494]:=0F555H; Dat[495]:=05557H;
  1020.  Dat[496]:=05550H; Dat[497]:=00000H;(*35*)
  1021.  Dat[498]:=0FFFFH; Dat[499]:=0FFFFH; Dat[500]:=0F800H; Dat[501]:=00007H;
  1022.  Dat[502]:=00000H; Dat[503]:=00000H;(*36*)
  1023.  Dat[504]:=0FFFFH; Dat[505]:=0FFFFH; Dat[506]:=0FE00H; Dat[507]:=0003FH;
  1024.  Dat[508]:=00000H; Dat[509]:=00000H;(*37*)
  1025.  Dat[510]:=0FFFFH; Dat[511]:=0FFFFH; Dat[512]:=0FFC0H; Dat[513]:=000FFH;
  1026.  Dat[514]:=00000H; Dat[515]:=00000H;(*38*)
  1027.  Dat[516]:=0FFFFH; Dat[517]:=0FFFFH; Dat[518]:=0FFFFH; Dat[519]:=087FFH;
  1028.  Dat[520]:=00000H; Dat[521]:=00000H;(*39*)
  1029.  Dat[522]:=0FFFFH; Dat[523]:=0FFFFH; Dat[524]:=0FFFFH; Dat[525]:=0FFFFH;
  1030.  Dat[526]:=00000H; Dat[527]:=00000H;(*40*)
  1031.  Dat[528]:=0FFFCH; Dat[529]:=00000H; Dat[530]:=00000H; Dat[531]:=07FFFH;
  1032.  Dat[532]:=00000H; Dat[533]:=00000H;(*41*)
  1033.  Dat[534]:=0E000H; Dat[535]:=00000H; Dat[536]:=00000H; Dat[537]:=0000FH;
  1034.  Dat[538]:=00000H; Dat[539]:=00000H;(*42*)
  1035.  Dat[540]:=00000H; Dat[541]:=00000H; Dat[542]:=00000H; Dat[543]:=00000H;
  1036.  Dat[544]:=00000H; Dat[545]:=00000H;(*43*)
  1037.  Dat[546]:=00000H; Dat[547]:=00000H; Dat[548]:=00000H; Dat[549]:=00000H;
  1038.  Dat[550]:=00000H; Dat[551]:=00000H;(*44*)
  1039.  Dat[552]:=00000H; Dat[553]:=00000H; Dat[554]:=00000H; Dat[555]:=00000H;
  1040.  Dat[556]:=00000H; Dat[557]:=00000H;(*45*)
  1041.  Dat[558]:=00000H; Dat[559]:=00000H; Dat[560]:=00000H; Dat[561]:=00000H;
  1042.  Dat[562]:=00000H; Dat[563]:=00000H;(*46*)
  1043.  Dat[564]:=00000H; Dat[565]:=00000H; Dat[566]:=00000H; Dat[567]:=00000H;
  1044.  Dat[568]:=00000H; Dat[569]:=00000H;(*47*)
  1045.  Dat[570]:=00000H; Dat[571]:=00000H; Dat[572]:=00000H; Dat[573]:=00000H;
  1046.  Dat[574]:=00000H; Dat[575]:=00000H;(*48*)
  1047.  
  1048. END; 
  1049. (* Brushbreite gegenüber IFF geändert! *)
  1050.  
  1051.  
  1052. WITH ImgPtr[PB6]^ DO         (* PB6 *)
  1053.  
  1054.   (* Plane 1 *)
  1055.  Dat[  0]:=00000H; Dat[  1]:=00000H; Dat[  2]:=00000H; Dat[  3]:=00000H;
  1056.  Dat[  4]:=00000H; Dat[  5]:=00000H;(* 1*)
  1057.  Dat[  6]:=00000H; Dat[  7]:=00000H; Dat[  8]:=00000H; Dat[  9]:=00000H;
  1058.  Dat[ 10]:=00000H; Dat[ 11]:=00000H;(* 2*)
  1059.  Dat[ 12]:=00000H; Dat[ 13]:=00000H; Dat[ 14]:=00000H; Dat[ 15]:=00000H;
  1060.  Dat[ 16]:=00000H; Dat[ 17]:=00000H;(* 3*)
  1061.  Dat[ 18]:=00000H; Dat[ 19]:=03FFFH; Dat[ 20]:=0FFE0H; Dat[ 21]:=00000H;
  1062.  Dat[ 22]:=00000H; Dat[ 23]:=00000H;(* 4*)
  1063.  Dat[ 24]:=0003FH; Dat[ 25]:=0FFFFH; Dat[ 26]:=0FFFFH; Dat[ 27]:=0F000H;
  1064.  Dat[ 28]:=00000H; Dat[ 29]:=00000H;(* 5*)
  1065.  Dat[ 30]:=007FFH; Dat[ 31]:=0C3FFH; Dat[ 32]:=0FFDFH; Dat[ 33]:=0FFC0H;
  1066.  Dat[ 34]:=00000H; Dat[ 35]:=00000H;(* 6*)
  1067.  Dat[ 36]:=03FE0H; Dat[ 37]:=0007FH; Dat[ 38]:=0FE00H; Dat[ 39]:=00FFCH;
  1068.  Dat[ 40]:=00000H; Dat[ 41]:=00000H;(* 7*)
  1069.  Dat[ 42]:=0FFC0H; Dat[ 43]:=0001FH; Dat[ 44]:=0F800H; Dat[ 45]:=007FFH;
  1070.  Dat[ 46]:=00000H; Dat[ 47]:=00000H;(* 8*)
  1071.  Dat[ 48]:=0FF00H; Dat[ 49]:=00007H; Dat[ 50]:=0E000H; Dat[ 51]:=000FFH;
  1072.  Dat[ 52]:=00000H; Dat[ 53]:=00000H;(* 9*)
  1073.  Dat[ 54]:=0FC00H; Dat[ 55]:=00003H; Dat[ 56]:=0C000H; Dat[ 57]:=0003FH;
  1074.  Dat[ 58]:=00000H; Dat[ 59]:=00000H;(*10*)
  1075.  Dat[ 60]:=0F800H; Dat[ 61]:=00003H; Dat[ 62]:=0C000H; Dat[ 63]:=0003FH;
  1076.  Dat[ 64]:=00000H; Dat[ 65]:=00000H;(*11*)
  1077.  Dat[ 66]:=0F000H; Dat[ 67]:=00001H; Dat[ 68]:=08000H; Dat[ 69]:=0000FH;
  1078.  Dat[ 70]:=00000H; Dat[ 71]:=00000H;(*12*)
  1079.  Dat[ 72]:=0E000H; Dat[ 73]:=00001H; Dat[ 74]:=08000H; Dat[ 75]:=00007H;
  1080.  Dat[ 76]:=00000H; Dat[ 77]:=00000H;(*13*)
  1081.  Dat[ 78]:=0E000H; Dat[ 79]:=00001H; Dat[ 80]:=08000H; Dat[ 81]:=00007H;
  1082.  Dat[ 82]:=00000H; Dat[ 83]:=00000H;(*14*)
  1083.  Dat[ 84]:=0C000H; Dat[ 85]:=00003H; Dat[ 86]:=0C000H; Dat[ 87]:=00003H;
  1084.  Dat[ 88]:=00000H; Dat[ 89]:=00000H;(*15*)
  1085.  Dat[ 90]:=0C000H; Dat[ 91]:=00003H; Dat[ 92]:=0C000H; Dat[ 93]:=00003H;
  1086.  Dat[ 94]:=00000H; Dat[ 95]:=00000H;(*16*)
  1087.  Dat[ 96]:=0C000H; Dat[ 97]:=00007H; Dat[ 98]:=0E000H; Dat[ 99]:=00003H;
  1088.  Dat[100]:=00000H; Dat[101]:=00000H;(*17*)
  1089.  Dat[102]:=0E000H; Dat[103]:=0001FH; Dat[104]:=0F800H; Dat[105]:=00007H;
  1090.  Dat[106]:=00000H; Dat[107]:=00000H;(*18*)
  1091.  Dat[108]:=0E000H; Dat[109]:=0007FH; Dat[110]:=0FE00H; Dat[111]:=00007H;
  1092.  Dat[112]:=00000H; Dat[113]:=00000H;(*19*)
  1093.  Dat[114]:=0F400H; Dat[115]:=003FFH; Dat[116]:=0FFC0H; Dat[117]:=0000FH;
  1094.  Dat[118]:=00000H; Dat[119]:=00000H;(*20*)
  1095.  Dat[120]:=0FF20H; Dat[121]:=03FFFH; Dat[122]:=0FFE0H; Dat[123]:=000FFH;
  1096.  Dat[124]:=00000H; Dat[125]:=00000H;(*21*)
  1097.  Dat[126]:=0FFFFH; Dat[127]:=0FFFFH; Dat[128]:=0FFDFH; Dat[129]:=0F7FFH;
  1098.  Dat[130]:=00000H; Dat[131]:=00000H;(*22*)
  1099.  Dat[132]:=0FFFFH; Dat[133]:=0FFFFH; Dat[134]:=0FE00H; Dat[135]:=00FFFH;
  1100.  Dat[136]:=00000H; Dat[137]:=00000H;(*23*)
  1101.  Dat[138]:=0FFFFH; Dat[139]:=0FFFFH; Dat[140]:=0F800H; Dat[141]:=007FFH;
  1102.  Dat[142]:=00000H; Dat[143]:=00000H;(*24*)
  1103.  Dat[144]:=0FFFFH; Dat[145]:=0FFFFH; Dat[146]:=0E000H; Dat[147]:=000FFH;
  1104.  Dat[148]:=00000H; Dat[149]:=00000H;(*25*)
  1105.  Dat[150]:=0FFFFH; Dat[151]:=0FFFFH; Dat[152]:=0C000H; Dat[153]:=0003FH;
  1106.  Dat[154]:=00000H; Dat[155]:=00000H;(*26*)
  1107.  Dat[156]:=0FFFFH; Dat[157]:=0FFFFH; Dat[158]:=0C000H; Dat[159]:=0003FH;
  1108.  Dat[160]:=00000H; Dat[161]:=00000H;(*27*)
  1109.  Dat[162]:=0FFFFH; Dat[163]:=0FFFFH; Dat[164]:=08000H; Dat[165]:=0000FH;
  1110.  Dat[166]:=00000H; Dat[167]:=00000H;(*28*)
  1111.  Dat[168]:=0FFFFH; Dat[169]:=0FFFFH; Dat[170]:=08000H; Dat[171]:=00007H;
  1112.  Dat[172]:=00000H; Dat[173]:=00000H;(*29*)
  1113.  Dat[174]:=0FFFFH; Dat[175]:=0FFFFH; Dat[176]:=08000H; Dat[177]:=00007H;
  1114.  Dat[178]:=00000H; Dat[179]:=00000H;(*30*)
  1115.  Dat[180]:=0FFFFH; Dat[181]:=0FFFFH; Dat[182]:=0C000H; Dat[183]:=00003H;
  1116.  Dat[184]:=00000H; Dat[185]:=00000H;(*31*)
  1117.  Dat[186]:=0FFFFH; Dat[187]:=0FFFFH; Dat[188]:=0C000H; Dat[189]:=00003H;
  1118.  Dat[190]:=00000H; Dat[191]:=00000H;(*32*)
  1119.  Dat[192]:=0FFFFH; Dat[193]:=0FFFFH; Dat[194]:=0E000H; Dat[195]:=00003H;
  1120.  Dat[196]:=00000H; Dat[197]:=00000H;(*33*)
  1121.  Dat[198]:=0FFFFH; Dat[199]:=0FFFFH; Dat[200]:=0F800H; Dat[201]:=00007H;
  1122.  Dat[202]:=00000H; Dat[203]:=00000H;(*34*)
  1123.  Dat[204]:=0FFFFH; Dat[205]:=0FFFFH; Dat[206]:=0FE00H; Dat[207]:=00007H;
  1124.  Dat[208]:=00000H; Dat[209]:=00000H;(*35*)
  1125.  Dat[210]:=0FFFFH; Dat[211]:=0FFFFH; Dat[212]:=0FFC0H; Dat[213]:=0000FH;
  1126.  Dat[214]:=00000H; Dat[215]:=00000H;(*36*)
  1127.  Dat[216]:=0FFFFH; Dat[217]:=0FFFFH; Dat[218]:=0FFE0H; Dat[219]:=000FFH;
  1128.  Dat[220]:=00000H; Dat[221]:=00000H;(*37*)
  1129.  Dat[222]:=0FFFFH; Dat[223]:=0FFFFH; Dat[224]:=0FFFFH; Dat[225]:=0F7FFH;
  1130.  Dat[226]:=00000H; Dat[227]:=00000H;(*38*)
  1131.  Dat[228]:=0FFFFH; Dat[229]:=0C000H; Dat[230]:=0001FH; Dat[231]:=0FFFFH;
  1132.  Dat[232]:=00000H; Dat[233]:=00000H;(*39*)
  1133.  Dat[234]:=0FFC0H; Dat[235]:=00000H; Dat[236]:=00000H; Dat[237]:=00FFFH;
  1134.  Dat[238]:=00000H; Dat[239]:=00000H;(*40*)
  1135.  Dat[240]:=0F800H; Dat[241]:=00000H; Dat[242]:=00000H; Dat[243]:=0003FH;
  1136.  Dat[244]:=00000H; Dat[245]:=00000H;(*41*)
  1137.  Dat[246]:=0C000H; Dat[247]:=00000H; Dat[248]:=00000H; Dat[249]:=00003H;
  1138.  Dat[250]:=00000H; Dat[251]:=00000H;(*42*)
  1139.  Dat[252]:=00000H; Dat[253]:=00000H; Dat[254]:=00000H; Dat[255]:=00000H;
  1140.  Dat[256]:=00000H; Dat[257]:=00000H;(*43*)
  1141.  Dat[258]:=00000H; Dat[259]:=00000H; Dat[260]:=00000H; Dat[261]:=00000H;
  1142.  Dat[262]:=00000H; Dat[263]:=00000H;(*44*)
  1143.  Dat[264]:=00000H; Dat[265]:=00000H; Dat[266]:=00000H; Dat[267]:=00000H;
  1144.  Dat[268]:=00000H; Dat[269]:=00000H;(*45*)
  1145.  Dat[270]:=00000H; Dat[271]:=00000H; Dat[272]:=00000H; Dat[273]:=00000H;
  1146.  Dat[274]:=00000H; Dat[275]:=00000H;(*46*)
  1147.  Dat[276]:=00000H; Dat[277]:=00000H; Dat[278]:=00000H; Dat[279]:=00000H;
  1148.  Dat[280]:=00000H; Dat[281]:=00000H;(*47*)
  1149.  Dat[282]:=00000H; Dat[283]:=00000H; Dat[284]:=00000H; Dat[285]:=00000H;
  1150.  Dat[286]:=00000H; Dat[287]:=00000H;(*48*)
  1151.  
  1152.   (* Plane 2 *)
  1153.  Dat[288]:=00005H; Dat[289]:=05555H; Dat[290]:=05555H; Dat[291]:=05555H;
  1154.  Dat[292]:=05550H; Dat[293]:=00000H;(* 1*)
  1155.  Dat[294]:=00005H; Dat[295]:=05555H; Dat[296]:=05555H; Dat[297]:=05555H;
  1156.  Dat[298]:=05550H; Dat[299]:=00000H;(* 2*)
  1157.  Dat[300]:=00005H; Dat[301]:=05400H; Dat[302]:=01555H; Dat[303]:=05400H;
  1158.  Dat[304]:=05550H; Dat[305]:=00000H;(* 3*)
  1159.  Dat[306]:=00005H; Dat[307]:=07FFFH; Dat[308]:=0FFF5H; Dat[309]:=04000H;
  1160.  Dat[310]:=00550H; Dat[311]:=00000H;(* 4*)
  1161.  Dat[312]:=0003FH; Dat[313]:=0FFFFH; Dat[314]:=0FFFFH; Dat[315]:=0F000H;
  1162.  Dat[316]:=00150H; Dat[317]:=00000H;(* 5*)
  1163.  Dat[318]:=007FFH; Dat[319]:=0C3FFH; Dat[320]:=0FFDFH; Dat[321]:=0FFC0H;
  1164.  Dat[322]:=00050H; Dat[323]:=00000H;(* 6*)
  1165.  Dat[324]:=03FE4H; Dat[325]:=0007FH; Dat[326]:=0FE14H; Dat[327]:=00FFCH;
  1166.  Dat[328]:=00050H; Dat[329]:=00000H;(* 7*)
  1167.  Dat[330]:=0FFC4H; Dat[331]:=0001FH; Dat[332]:=0F814H; Dat[333]:=007FFH;
  1168.  Dat[334]:=00050H; Dat[335]:=00000H;(* 8*)
  1169.  Dat[336]:=0FF04H; Dat[337]:=00007H; Dat[338]:=0E010H; Dat[339]:=000FFH;
  1170.  Dat[340]:=00010H; Dat[341]:=00000H;(* 9*)
  1171.  Dat[342]:=0FC04H; Dat[343]:=00003H; Dat[344]:=0C010H; Dat[345]:=0003FH;
  1172.  Dat[346]:=00010H; Dat[347]:=00000H;(*10*)
  1173.  Dat[348]:=0F804H; Dat[349]:=00003H; Dat[350]:=0C010H; Dat[351]:=0003FH;
  1174.  Dat[352]:=00010H; Dat[353]:=00000H;(*11*)
  1175.  Dat[354]:=0F004H; Dat[355]:=00001H; Dat[356]:=08014H; Dat[357]:=0000FH;
  1176.  Dat[358]:=00050H; Dat[359]:=00000H;(*12*)
  1177.  Dat[360]:=0E004H; Dat[361]:=00001H; Dat[362]:=08014H; Dat[363]:=00007H;
  1178.  Dat[364]:=00050H; Dat[365]:=00000H;(*13*)
  1179.  Dat[366]:=0E005H; Dat[367]:=00001H; Dat[368]:=08054H; Dat[369]:=00007H;
  1180.  Dat[370]:=00050H; Dat[371]:=00000H;(*14*)
  1181.  Dat[372]:=0C005H; Dat[373]:=04003H; Dat[374]:=0C155H; Dat[375]:=00003H;
  1182.  Dat[376]:=00150H; Dat[377]:=00000H;(*15*)
  1183.  Dat[378]:=0C005H; Dat[379]:=05003H; Dat[380]:=0C555H; Dat[381]:=04003H;
  1184.  Dat[382]:=00550H; Dat[383]:=00000H;(*16*)
  1185.  Dat[384]:=0C005H; Dat[385]:=05407H; Dat[386]:=0F555H; Dat[387]:=05403H;
  1186.  Dat[388]:=05550H; Dat[389]:=00000H;(*17*)
  1187.  Dat[390]:=0E005H; Dat[391]:=0555FH; Dat[392]:=0FD55H; Dat[393]:=05557H;
  1188.  Dat[394]:=05550H; Dat[395]:=00000H;(*18*)
  1189.  Dat[396]:=0E005H; Dat[397]:=0557FH; Dat[398]:=0FF55H; Dat[399]:=05407H;
  1190.  Dat[400]:=05550H; Dat[401]:=00000H;(*19*)
  1191.  Dat[402]:=0F405H; Dat[403]:=057FFH; Dat[404]:=0FFD5H; Dat[405]:=0400FH;
  1192.  Dat[406]:=00550H; Dat[407]:=00000H;(*20*)
  1193.  Dat[408]:=0FF25H; Dat[409]:=07FFFH; Dat[410]:=0FFF5H; Dat[411]:=000FFH;
  1194.  Dat[412]:=00150H; Dat[413]:=00000H;(*21*)
  1195.  Dat[414]:=0FFFFH; Dat[415]:=0FFFFH; Dat[416]:=0FFDFH; Dat[417]:=0F7FFH;
  1196.  Dat[418]:=00050H; Dat[419]:=00000H;(*22*)
  1197.  Dat[420]:=0FFFFH; Dat[421]:=0FFFFH; Dat[422]:=0FF54H; Dat[423]:=00FFFH;
  1198.  Dat[424]:=00050H; Dat[425]:=00000H;(*23*)
  1199.  Dat[426]:=0FFFFH; Dat[427]:=0FFFFH; Dat[428]:=0FD54H; Dat[429]:=007FFH;
  1200.  Dat[430]:=00050H; Dat[431]:=00000H;(*24*)
  1201.  Dat[432]:=0FFFFH; Dat[433]:=0FFFFH; Dat[434]:=0F550H; Dat[435]:=000FFH;
  1202.  Dat[436]:=00010H; Dat[437]:=00000H;(*25*)
  1203.  Dat[438]:=0FFFFH; Dat[439]:=0FFFFH; Dat[440]:=0D550H; Dat[441]:=0003FH;
  1204.  Dat[442]:=00010H; Dat[443]:=00000H;(*26*)
  1205.  Dat[444]:=0FFFFH; Dat[445]:=0FFFFH; Dat[446]:=0D550H; Dat[447]:=0003FH;
  1206.  Dat[448]:=00010H; Dat[449]:=00000H;(*27*)
  1207.  Dat[450]:=0FFFFH; Dat[451]:=0FFFFH; Dat[452]:=0D554H; Dat[453]:=0000FH;
  1208.  Dat[454]:=00050H; Dat[455]:=00000H;(*28*)
  1209.  Dat[456]:=0FFFFH; Dat[457]:=0FFFFH; Dat[458]:=0D554H; Dat[459]:=00007H;
  1210.  Dat[460]:=00050H; Dat[461]:=00000H;(*29*)
  1211.  Dat[462]:=0FFFFH; Dat[463]:=0FFFFH; Dat[464]:=0D554H; Dat[465]:=00007H;
  1212.  Dat[466]:=00050H; Dat[467]:=00000H;(*30*)
  1213.  Dat[468]:=0FFFFH; Dat[469]:=0FFFFH; Dat[470]:=0D555H; Dat[471]:=00003H;
  1214.  Dat[472]:=00150H; Dat[473]:=00000H;(*31*)
  1215.  Dat[474]:=0FFFFH; Dat[475]:=0FFFFH; Dat[476]:=0D555H; Dat[477]:=04003H;
  1216.  Dat[478]:=00550H; Dat[479]:=00000H;(*32*)
  1217.  Dat[480]:=0FFFFH; Dat[481]:=0FFFFH; Dat[482]:=0F555H; Dat[483]:=05403H;
  1218.  Dat[484]:=05550H; Dat[485]:=00000H;(*33*)
  1219.  Dat[486]:=0FFFFH; Dat[487]:=0FFFFH; Dat[488]:=0FD55H; Dat[489]:=05557H;
  1220.  Dat[490]:=05550H; Dat[491]:=00000H;(*34*)
  1221.  Dat[492]:=0FFFFH; Dat[493]:=0FFFFH; Dat[494]:=0FF55H; Dat[495]:=05557H;
  1222.  Dat[496]:=05550H; Dat[497]:=00000H;(*35*)
  1223.  Dat[498]:=0FFFFH; Dat[499]:=0FFFFH; Dat[500]:=0FFC0H; Dat[501]:=0000FH;
  1224.  Dat[502]:=00000H; Dat[503]:=00000H;(*36*)
  1225.  Dat[504]:=0FFFFH; Dat[505]:=0FFFFH; Dat[506]:=0FFE0H; Dat[507]:=000FFH;
  1226.  Dat[508]:=00000H; Dat[509]:=00000H;(*37*)
  1227.  Dat[510]:=0FFFFH; Dat[511]:=0FFFFH; Dat[512]:=0FFFFH; Dat[513]:=0F7FFH;
  1228.  Dat[514]:=00000H; Dat[515]:=00000H;(*38*)
  1229.  Dat[516]:=0FFFFH; Dat[517]:=0C000H; Dat[518]:=0001FH; Dat[519]:=0FFFFH;
  1230.  Dat[520]:=00000H; Dat[521]:=00000H;(*39*)
  1231.  Dat[522]:=0FFC0H; Dat[523]:=00000H; Dat[524]:=00000H; Dat[525]:=00FFFH;
  1232.  Dat[526]:=00000H; Dat[527]:=00000H;(*40*)
  1233.  Dat[528]:=0F800H; Dat[529]:=00000H; Dat[530]:=00000H; Dat[531]:=0003FH;
  1234.  Dat[532]:=00000H; Dat[533]:=00000H;(*41*)
  1235.  Dat[534]:=0C000H; Dat[535]:=00000H; Dat[536]:=00000H; Dat[537]:=00003H;
  1236.  Dat[538]:=00000H; Dat[539]:=00000H;(*42*)
  1237.  Dat[540]:=00000H; Dat[541]:=00000H; Dat[542]:=00000H; Dat[543]:=00000H;
  1238.  Dat[544]:=00000H; Dat[545]:=00000H;(*43*)
  1239.  Dat[546]:=00000H; Dat[547]:=00000H; Dat[548]:=00000H; Dat[549]:=00000H;
  1240.  Dat[550]:=00000H; Dat[551]:=00000H;(*44*)
  1241.  Dat[552]:=00000H; Dat[553]:=00000H; Dat[554]:=00000H; Dat[555]:=00000H;
  1242.  Dat[556]:=00000H; Dat[557]:=00000H;(*45*)
  1243.  Dat[558]:=00000H; Dat[559]:=00000H; Dat[560]:=00000H; Dat[561]:=00000H;
  1244.  Dat[562]:=00000H; Dat[563]:=00000H;(*46*)
  1245.  Dat[564]:=00000H; Dat[565]:=00000H; Dat[566]:=00000H; Dat[567]:=00000H;
  1246.  Dat[568]:=00000H; Dat[569]:=00000H;(*47*)
  1247.  Dat[570]:=00000H; Dat[571]:=00000H; Dat[572]:=00000H; Dat[573]:=00000H;
  1248.  Dat[574]:=00000H; Dat[575]:=00000H;(*48*)
  1249.  
  1250. END; 
  1251. (* Brushbreite gegenüber IFF geändert! *)
  1252.  
  1253.  
  1254. WITH ImgPtr[PB7]^ DO         (* PB7 *)
  1255.  
  1256.   (* Plane 1 *)
  1257.  Dat[  0]:=00000H; Dat[  1]:=00000H; Dat[  2]:=00000H; Dat[  3]:=00000H;
  1258.  Dat[  4]:=00000H; Dat[  5]:=00000H;(* 1*)
  1259.  Dat[  6]:=00000H; Dat[  7]:=00FFFH; Dat[  8]:=0FF80H; Dat[  9]:=00000H;
  1260.  Dat[ 10]:=00000H; Dat[ 11]:=00000H;(* 2*)
  1261.  Dat[ 12]:=00007H; Dat[ 13]:=0FFFFH; Dat[ 14]:=0FFFFH; Dat[ 15]:=00000H;
  1262.  Dat[ 16]:=00000H; Dat[ 17]:=00000H;(* 3*)
  1263.  Dat[ 18]:=0007FH; Dat[ 19]:=0F3FFH; Dat[ 20]:=0FFFFH; Dat[ 21]:=0F800H;
  1264.  Dat[ 22]:=00000H; Dat[ 23]:=00000H;(* 4*)
  1265.  Dat[ 24]:=003F8H; Dat[ 25]:=0007FH; Dat[ 26]:=0FE40H; Dat[ 27]:=0FF80H;
  1266.  Dat[ 28]:=00000H; Dat[ 29]:=00000H;(* 5*)
  1267.  Dat[ 30]:=01FE0H; Dat[ 31]:=0001FH; Dat[ 32]:=0F800H; Dat[ 33]:=007F0H;
  1268.  Dat[ 34]:=00000H; Dat[ 35]:=00000H;(* 6*)
  1269.  Dat[ 36]:=07F80H; Dat[ 37]:=00007H; Dat[ 38]:=0E000H; Dat[ 39]:=007FCH;
  1270.  Dat[ 40]:=00000H; Dat[ 41]:=00000H;(* 7*)
  1271.  Dat[ 42]:=0FF00H; Dat[ 43]:=00003H; Dat[ 44]:=0C000H; Dat[ 45]:=000FFH;
  1272.  Dat[ 46]:=00000H; Dat[ 47]:=00000H;(* 8*)
  1273.  Dat[ 48]:=0FC00H; Dat[ 49]:=00003H; Dat[ 50]:=0C000H; Dat[ 51]:=0007FH;
  1274.  Dat[ 52]:=00000H; Dat[ 53]:=00000H;(* 9*)
  1275.  Dat[ 54]:=0FC00H; Dat[ 55]:=00001H; Dat[ 56]:=08000H; Dat[ 57]:=0003FH;
  1276.  Dat[ 58]:=00000H; Dat[ 59]:=00000H;(*10*)
  1277.  Dat[ 60]:=0F000H; Dat[ 61]:=00001H; Dat[ 62]:=08000H; Dat[ 63]:=0000FH;
  1278.  Dat[ 64]:=00000H; Dat[ 65]:=00000H;(*11*)
  1279.  Dat[ 66]:=0E000H; Dat[ 67]:=00001H; Dat[ 68]:=08000H; Dat[ 69]:=0000FH;
  1280.  Dat[ 70]:=00000H; Dat[ 71]:=00000H;(*12*)
  1281.  Dat[ 72]:=0E000H; Dat[ 73]:=00003H; Dat[ 74]:=0C000H; Dat[ 75]:=00007H;
  1282.  Dat[ 76]:=00000H; Dat[ 77]:=00000H;(*13*)
  1283.  Dat[ 78]:=0E000H; Dat[ 79]:=00003H; Dat[ 80]:=0C000H; Dat[ 81]:=00007H;
  1284.  Dat[ 82]:=00000H; Dat[ 83]:=00000H;(*14*)
  1285.  Dat[ 84]:=0C000H; Dat[ 85]:=00007H; Dat[ 86]:=0E000H; Dat[ 87]:=00003H;
  1286.  Dat[ 88]:=00000H; Dat[ 89]:=00000H;(*15*)
  1287.  Dat[ 90]:=0C000H; Dat[ 91]:=0001FH; Dat[ 92]:=0F800H; Dat[ 93]:=00003H;
  1288.  Dat[ 94]:=00000H; Dat[ 95]:=00000H;(*16*)
  1289.  Dat[ 96]:=0C000H; Dat[ 97]:=0007FH; Dat[ 98]:=0FE00H; Dat[ 99]:=00003H;
  1290.  Dat[100]:=00000H; Dat[101]:=00000H;(*17*)
  1291.  Dat[102]:=0E000H; Dat[103]:=003FFH; Dat[104]:=0FF80H; Dat[105]:=00007H;
  1292.  Dat[106]:=00000H; Dat[107]:=00000H;(*18*)
  1293.  Dat[108]:=0F000H; Dat[109]:=00FFFH; Dat[110]:=0FFC0H; Dat[111]:=00007H;
  1294.  Dat[112]:=00000H; Dat[113]:=00000H;(*19*)
  1295.  Dat[114]:=0FF67H; Dat[115]:=0FFFFH; Dat[116]:=0FFFFH; Dat[117]:=000BFH;
  1296.  Dat[118]:=00000H; Dat[119]:=00000H;(*20*)
  1297.  Dat[120]:=0FFFFH; Dat[121]:=0FFFFH; Dat[122]:=0FE40H; Dat[123]:=0FFFFH;
  1298.  Dat[124]:=00000H; Dat[125]:=00000H;(*21*)
  1299.  Dat[126]:=0FFFFH; Dat[127]:=0FFFFH; Dat[128]:=0F800H; Dat[129]:=007FFH;
  1300.  Dat[130]:=00000H; Dat[131]:=00000H;(*22*)
  1301.  Dat[132]:=0FFFFH; Dat[133]:=0FFFFH; Dat[134]:=0E000H; Dat[135]:=007FFH;
  1302.  Dat[136]:=00000H; Dat[137]:=00000H;(*23*)
  1303.  Dat[138]:=0FFFFH; Dat[139]:=0FFFFH; Dat[140]:=0C000H; Dat[141]:=000FFH;
  1304.  Dat[142]:=00000H; Dat[143]:=00000H;(*24*)
  1305.  Dat[144]:=0FFFFH; Dat[145]:=0FFFFH; Dat[146]:=0C000H; Dat[147]:=0007FH;
  1306.  Dat[148]:=00000H; Dat[149]:=00000H;(*25*)
  1307.  Dat[150]:=0FFFFH; Dat[151]:=0FFFFH; Dat[152]:=08000H; Dat[153]:=0003FH;
  1308.  Dat[154]:=00000H; Dat[155]:=00000H;(*26*)
  1309.  Dat[156]:=0FFFFH; Dat[157]:=0FFFFH; Dat[158]:=08000H; Dat[159]:=0000FH;
  1310.  Dat[160]:=00000H; Dat[161]:=00000H;(*27*)
  1311.  Dat[162]:=0FFFFH; Dat[163]:=0FFFFH; Dat[164]:=08000H; Dat[165]:=0000FH;
  1312.  Dat[166]:=00000H; Dat[167]:=00000H;(*28*)
  1313.  Dat[168]:=0FFFFH; Dat[169]:=0FFFFH; Dat[170]:=0C000H; Dat[171]:=00007H;
  1314.  Dat[172]:=00000H; Dat[173]:=00000H;(*29*)
  1315.  Dat[174]:=0FFFFH; Dat[175]:=0FFFFH; Dat[176]:=0C000H; Dat[177]:=00007H;
  1316.  Dat[178]:=00000H; Dat[179]:=00000H;(*30*)
  1317.  Dat[180]:=0FFFFH; Dat[181]:=0FFFFH; Dat[182]:=0E000H; Dat[183]:=00003H;
  1318.  Dat[184]:=00000H; Dat[185]:=00000H;(*31*)
  1319.  Dat[186]:=0FFFFH; Dat[187]:=0FFFFH; Dat[188]:=0F800H; Dat[189]:=00003H;
  1320.  Dat[190]:=00000H; Dat[191]:=00000H;(*32*)
  1321.  Dat[192]:=0FFFFH; Dat[193]:=0FFFFH; Dat[194]:=0FE00H; Dat[195]:=00003H;
  1322.  Dat[196]:=00000H; Dat[197]:=00000H;(*33*)
  1323.  Dat[198]:=0FFFFH; Dat[199]:=0FFFFH; Dat[200]:=0FF80H; Dat[201]:=00007H;
  1324.  Dat[202]:=00000H; Dat[203]:=00000H;(*34*)
  1325.  Dat[204]:=0FFFFH; Dat[205]:=0FFFFH; Dat[206]:=0FFC0H; Dat[207]:=00007H;
  1326.  Dat[208]:=00000H; Dat[209]:=00000H;(*35*)
  1327.  Dat[210]:=0FFFFH; Dat[211]:=0FFFFH; Dat[212]:=0FFFFH; Dat[213]:=000BFH;
  1328.  Dat[214]:=00000H; Dat[215]:=00000H;(*36*)
  1329.  Dat[216]:=0FFFFH; Dat[217]:=0F000H; Dat[218]:=0007FH; Dat[219]:=0FFFFH;
  1330.  Dat[220]:=00000H; Dat[221]:=00000H;(*37*)
  1331.  Dat[222]:=0FFF8H; Dat[223]:=00000H; Dat[224]:=00000H; Dat[225]:=0FFFFH;
  1332.  Dat[226]:=00000H; Dat[227]:=00000H;(*38*)
  1333.  Dat[228]:=0FF80H; Dat[229]:=00000H; Dat[230]:=00000H; Dat[231]:=007FFH;
  1334.  Dat[232]:=00000H; Dat[233]:=00000H;(*39*)
  1335.  Dat[234]:=0FC00H; Dat[235]:=00000H; Dat[236]:=00000H; Dat[237]:=0007FH;
  1336.  Dat[238]:=00000H; Dat[239]:=00000H;(*40*)
  1337.  Dat[240]:=0E000H; Dat[241]:=00000H; Dat[242]:=00000H; Dat[243]:=0000FH;
  1338.  Dat[244]:=00000H; Dat[245]:=00000H;(*41*)
  1339.  Dat[246]:=08000H; Dat[247]:=00000H; Dat[248]:=00000H; Dat[249]:=00003H;
  1340.  Dat[250]:=00000H; Dat[251]:=00000H;(*42*)
  1341.  Dat[252]:=00000H; Dat[253]:=00000H; Dat[254]:=00000H; Dat[255]:=00000H;
  1342.  Dat[256]:=00000H; Dat[257]:=00000H;(*43*)
  1343.  Dat[258]:=00000H; Dat[259]:=00000H; Dat[260]:=00000H; Dat[261]:=00000H;
  1344.  Dat[262]:=00000H; Dat[263]:=00000H;(*44*)
  1345.  Dat[264]:=00000H; Dat[265]:=00000H; Dat[266]:=00000H; Dat[267]:=00000H;
  1346.  Dat[268]:=00000H; Dat[269]:=00000H;(*45*)
  1347.  Dat[270]:=00000H; Dat[271]:=00000H; Dat[272]:=00000H; Dat[273]:=00000H;
  1348.  Dat[274]:=00000H; Dat[275]:=00000H;(*46*)
  1349.  Dat[276]:=00000H; Dat[277]:=00000H; Dat[278]:=00000H; Dat[279]:=00000H;
  1350.  Dat[280]:=00000H; Dat[281]:=00000H;(*47*)
  1351.  Dat[282]:=00000H; Dat[283]:=00000H; Dat[284]:=00000H; Dat[285]:=00000H;
  1352.  Dat[286]:=00000H; Dat[287]:=00000H;(*48*)
  1353.  
  1354.   (* Plane 2 *)
  1355.  Dat[288]:=00005H; Dat[289]:=05555H; Dat[290]:=05555H; Dat[291]:=05555H;
  1356.  Dat[292]:=05550H; Dat[293]:=00000H;(* 1*)
  1357.  Dat[294]:=00005H; Dat[295]:=05FFFH; Dat[296]:=0FFD5H; Dat[297]:=05555H;
  1358.  Dat[298]:=05550H; Dat[299]:=00000H;(* 2*)
  1359.  Dat[300]:=00007H; Dat[301]:=0FFFFH; Dat[302]:=0FFFFH; Dat[303]:=05400H;
  1360.  Dat[304]:=05550H; Dat[305]:=00000H;(* 3*)
  1361.  Dat[306]:=0007FH; Dat[307]:=0F3FFH; Dat[308]:=0FFFFH; Dat[309]:=0F800H;
  1362.  Dat[310]:=00550H; Dat[311]:=00000H;(* 4*)
  1363.  Dat[312]:=003FDH; Dat[313]:=0407FH; Dat[314]:=0FF55H; Dat[315]:=0FF80H;
  1364.  Dat[316]:=00150H; Dat[317]:=00000H;(* 5*)
  1365.  Dat[318]:=01FE5H; Dat[319]:=0001FH; Dat[320]:=0F854H; Dat[321]:=007F0H;
  1366.  Dat[322]:=00050H; Dat[323]:=00000H;(* 6*)
  1367.  Dat[324]:=07F84H; Dat[325]:=00007H; Dat[326]:=0E014H; Dat[327]:=007FCH;
  1368.  Dat[328]:=00050H; Dat[329]:=00000H;(* 7*)
  1369.  Dat[330]:=0FF04H; Dat[331]:=00003H; Dat[332]:=0C014H; Dat[333]:=000FFH;
  1370.  Dat[334]:=00050H; Dat[335]:=00000H;(* 8*)
  1371.  Dat[336]:=0FC04H; Dat[337]:=00003H; Dat[338]:=0C010H; Dat[339]:=0007FH;
  1372.  Dat[340]:=00010H; Dat[341]:=00000H;(* 9*)
  1373.  Dat[342]:=0FC04H; Dat[343]:=00001H; Dat[344]:=08010H; Dat[345]:=0003FH;
  1374.  Dat[346]:=00010H; Dat[347]:=00000H;(*10*)
  1375.  Dat[348]:=0F004H; Dat[349]:=00001H; Dat[350]:=08010H; Dat[351]:=0000FH;
  1376.  Dat[352]:=00010H; Dat[353]:=00000H;(*11*)
  1377.  Dat[354]:=0E004H; Dat[355]:=00001H; Dat[356]:=08014H; Dat[357]:=0000FH;
  1378.  Dat[358]:=00050H; Dat[359]:=00000H;(*12*)
  1379.  Dat[360]:=0E004H; Dat[361]:=00003H; Dat[362]:=0C014H; Dat[363]:=00007H;
  1380.  Dat[364]:=00050H; Dat[365]:=00000H;(*13*)
  1381.  Dat[366]:=0E005H; Dat[367]:=00003H; Dat[368]:=0C054H; Dat[369]:=00007H;
  1382.  Dat[370]:=00050H; Dat[371]:=00000H;(*14*)
  1383.  Dat[372]:=0C005H; Dat[373]:=04007H; Dat[374]:=0E155H; Dat[375]:=00003H;
  1384.  Dat[376]:=00150H; Dat[377]:=00000H;(*15*)
  1385.  Dat[378]:=0C005H; Dat[379]:=0501FH; Dat[380]:=0FD55H; Dat[381]:=04003H;
  1386.  Dat[382]:=00550H; Dat[383]:=00000H;(*16*)
  1387.  Dat[384]:=0C005H; Dat[385]:=0547FH; Dat[386]:=0FF55H; Dat[387]:=05403H;
  1388.  Dat[388]:=05550H; Dat[389]:=00000H;(*17*)
  1389.  Dat[390]:=0E005H; Dat[391]:=057FFH; Dat[392]:=0FFD5H; Dat[393]:=05557H;
  1390.  Dat[394]:=05550H; Dat[395]:=00000H;(*18*)
  1391.  Dat[396]:=0F005H; Dat[397]:=05FFFH; Dat[398]:=0FFD5H; Dat[399]:=05407H;
  1392.  Dat[400]:=05550H; Dat[401]:=00000H;(*19*)
  1393.  Dat[402]:=0FF67H; Dat[403]:=0FFFFH; Dat[404]:=0FFFFH; Dat[405]:=040BFH;
  1394.  Dat[406]:=00550H; Dat[407]:=00000H;(*20*)
  1395.  Dat[408]:=0FFFFH; Dat[409]:=0FFFFH; Dat[410]:=0FF55H; Dat[411]:=0FFFFH;
  1396.  Dat[412]:=00150H; Dat[413]:=00000H;(*21*)
  1397.  Dat[414]:=0FFFFH; Dat[415]:=0FFFFH; Dat[416]:=0FD54H; Dat[417]:=007FFH;
  1398.  Dat[418]:=00050H; Dat[419]:=00000H;(*22*)
  1399.  Dat[420]:=0FFFFH; Dat[421]:=0FFFFH; Dat[422]:=0F554H; Dat[423]:=007FFH;
  1400.  Dat[424]:=00050H; Dat[425]:=00000H;(*23*)
  1401.  Dat[426]:=0FFFFH; Dat[427]:=0FFFFH; Dat[428]:=0D554H; Dat[429]:=000FFH;
  1402.  Dat[430]:=00050H; Dat[431]:=00000H;(*24*)
  1403.  Dat[432]:=0FFFFH; Dat[433]:=0FFFFH; Dat[434]:=0D550H; Dat[435]:=0007FH;
  1404.  Dat[436]:=00010H; Dat[437]:=00000H;(*25*)
  1405.  Dat[438]:=0FFFFH; Dat[439]:=0FFFFH; Dat[440]:=0D550H; Dat[441]:=0003FH;
  1406.  Dat[442]:=00010H; Dat[443]:=00000H;(*26*)
  1407.  Dat[444]:=0FFFFH; Dat[445]:=0FFFFH; Dat[446]:=0D550H; Dat[447]:=0000FH;
  1408.  Dat[448]:=00010H; Dat[449]:=00000H;(*27*)
  1409.  Dat[450]:=0FFFFH; Dat[451]:=0FFFFH; Dat[452]:=0D554H; Dat[453]:=0000FH;
  1410.  Dat[454]:=00050H; Dat[455]:=00000H;(*28*)
  1411.  Dat[456]:=0FFFFH; Dat[457]:=0FFFFH; Dat[458]:=0D554H; Dat[459]:=00007H;
  1412.  Dat[460]:=00050H; Dat[461]:=00000H;(*29*)
  1413.  Dat[462]:=0FFFFH; Dat[463]:=0FFFFH; Dat[464]:=0D554H; Dat[465]:=00007H;
  1414.  Dat[466]:=00050H; Dat[467]:=00000H;(*30*)
  1415.  Dat[468]:=0FFFFH; Dat[469]:=0FFFFH; Dat[470]:=0F555H; Dat[471]:=00003H;
  1416.  Dat[472]:=00150H; Dat[473]:=00000H;(*31*)
  1417.  Dat[474]:=0FFFFH; Dat[475]:=0FFFFH; Dat[476]:=0FD55H; Dat[477]:=04003H;
  1418.  Dat[478]:=00550H; Dat[479]:=00000H;(*32*)
  1419.  Dat[480]:=0FFFFH; Dat[481]:=0FFFFH; Dat[482]:=0FF55H; Dat[483]:=05403H;
  1420.  Dat[484]:=05550H; Dat[485]:=00000H;(*33*)
  1421.  Dat[486]:=0FFFFH; Dat[487]:=0FFFFH; Dat[488]:=0FFD5H; Dat[489]:=05557H;
  1422.  Dat[490]:=05550H; Dat[491]:=00000H;(*34*)
  1423.  Dat[492]:=0FFFFH; Dat[493]:=0FFFFH; Dat[494]:=0FFD5H; Dat[495]:=05557H;
  1424.  Dat[496]:=05550H; Dat[497]:=00000H;(*35*)
  1425.  Dat[498]:=0FFFFH; Dat[499]:=0FFFFH; Dat[500]:=0FFFFH; Dat[501]:=000BFH;
  1426.  Dat[502]:=00000H; Dat[503]:=00000H;(*36*)
  1427.  Dat[504]:=0FFFFH; Dat[505]:=0F000H; Dat[506]:=0007FH; Dat[507]:=0FFFFH;
  1428.  Dat[508]:=00000H; Dat[509]:=00000H;(*37*)
  1429.  Dat[510]:=0FFF8H; Dat[511]:=00000H; Dat[512]:=00000H; Dat[513]:=0FFFFH;
  1430.  Dat[514]:=00000H; Dat[515]:=00000H;(*38*)
  1431.  Dat[516]:=0FF80H; Dat[517]:=00000H; Dat[518]:=00000H; Dat[519]:=007FFH;
  1432.  Dat[520]:=00000H; Dat[521]:=00000H;(*39*)
  1433.  Dat[522]:=0FC00H; Dat[523]:=00000H; Dat[524]:=00000H; Dat[525]:=0007FH;
  1434.  Dat[526]:=00000H; Dat[527]:=00000H;(*40*)
  1435.  Dat[528]:=0E000H; Dat[529]:=00000H; Dat[530]:=00000H; Dat[531]:=0000FH;
  1436.  Dat[532]:=00000H; Dat[533]:=00000H;(*41*)
  1437.  Dat[534]:=08000H; Dat[535]:=00000H; Dat[536]:=00000H; Dat[537]:=00003H;
  1438.  Dat[538]:=00000H; Dat[539]:=00000H;(*42*)
  1439.  Dat[540]:=00000H; Dat[541]:=00000H; Dat[542]:=00000H; Dat[543]:=00000H;
  1440.  Dat[544]:=00000H; Dat[545]:=00000H;(*43*)
  1441.  Dat[546]:=00000H; Dat[547]:=00000H; Dat[548]:=00000H; Dat[549]:=00000H;
  1442.  Dat[550]:=00000H; Dat[551]:=00000H;(*44*)
  1443.  Dat[552]:=00000H; Dat[553]:=00000H; Dat[554]:=00000H; Dat[555]:=00000H;
  1444.  Dat[556]:=00000H; Dat[557]:=00000H;(*45*)
  1445.  Dat[558]:=00000H; Dat[559]:=00000H; Dat[560]:=00000H; Dat[561]:=00000H;
  1446.  Dat[562]:=00000H; Dat[563]:=00000H;(*46*)
  1447.  Dat[564]:=00000H; Dat[565]:=00000H; Dat[566]:=00000H; Dat[567]:=00000H;
  1448.  Dat[568]:=00000H; Dat[569]:=00000H;(*47*)
  1449.  Dat[570]:=00000H; Dat[571]:=00000H; Dat[572]:=00000H; Dat[573]:=00000H;
  1450.  Dat[574]:=00000H; Dat[575]:=00000H;(*48*)
  1451.  
  1452. END; 
  1453. END PB.
  1454.